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Introduction 


Le Lynx est l'un des premiers ordinateurs dits "familiaux" à présenter en 
version de base un Basic réellement complet et comparable à celui de plus 
gros systèmes, associé à une exploitation aisée et performante de la 
couleur et du graphique. 

Ce Basic particulier et la présence d'instructions originales parfois issues 
d'autres langages comme le Pascal (PROC, DEFPROC), font de cette 
machine un outil réellement puissant et polyvalent. 

Présenté sous la forme d'un manuel de Basic approfondi, ce livre est 
destiné à ceux qui, déjà au fait des rudiments du Basic, désirent aller plus 
loin dans la connaissance de leur ordinateur. De nombreux programmes, 
dont certain sont des logiciels complets et prêts à utiliser, permettent 
d'ouvrir la voie vers une programmation avancée. 

Citons un générateur de caractères incluant la sauvegarde sur cassette des 
jeux créés, ainsi qu'un programme musical prévu pour mémoriser une 
mélodie, en éditer la partition et copier celle-ci sur imprimante ou cassette. 
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L'initiation au langage-machine n'a pas été oubliée: Une présentation 
simple et quelques "astuces" utiles permettront au lecteur, même novice 
en la matière, d'exploiter pleinement les accès directs à la mémoire en 
modes texte ou graphique. On trouvera, parmi les programmes proposés, 
une méthode de reconfiguration du davier, ainsi que la routine à utiliser 
pour créer et exploiter deux pages-écran. 
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Le Basic Lynx 


1.1. Introduction 


Bien que toutes les commandes du Basic du Lynx soient décrites dans ce 
chapitre, seules seront discutées en détail celles dont la syntaxe ou l'utilisa¬ 
tion présente des particularités, la référence étant le Basic Microsoft 5.0, le 
plus répandu actuellement. Des petits programmes très simples viendront 
s'ajouter à ces explications dans le cas de commandes nécessitant une 
présentation plus complète. 

D’autre part, et malgré un Basic particulièrement étendu, certaines 
commandes sont absentes du Lynx. Cette section se termine par quelques 
sous-programmes palliant à ces absences lorsque cela est possible. 

REMARQUE: Les instructions concernant le langage-machine, la couleur, le 
graphique et le son seront traitées dans les chapitres qui leur sont consa¬ 
crés (§ 2.4.2, 3.1.3 et 4.1 respectivement). 


1 



1.2. Conventions d'écriture 


Pour faciliter la compréhension, nous présenterons les instructions et fonc¬ 
tions de la manière suivante : 

Syntaxe : Donne la syntaxe complète de l'instruction ou fonction. 

Application(s) : Donne le détail de l'utilisation de la commande. 

Remarques: Dans cette rubrique seront exposées les particularités de la 
commande, ou les différences avec le Basic Microsoft. 

Exemplefs) : Selon la complexité des cas, un ou plusieurs exemples seront 
donnés. 

— Tous les mots écrits en majuscules représentent les mots-clés du 
Basic, et sont à entrer tels quels au clavier. 

— Les mots écrits en minuscules et compris entre < > sont les données à 
fournir par le programmeur. 

— Les données facultatives sont incluses entre crochets | ). 

— Toutes les ponctuations, hormis les deux précédentes, font partie inté¬ 
grante de la syntaxe et doivent être tapées telles quelles. 

— En ce qui concerne les nombres, nous adopterons les conventions 
suivantes : 

• X, Y, Z représentent des nombres en virgule flottante, 

• N, M des nombres entiers, 

• A représente une adresse mémoire (entier compris entre 0 et 
65535). 


Exemple-, INPUT [<''commentaire";>| <variable 1> [<,variable 2>] 

— L'instruction INPUT est la commande Basic. 

— Le commentaire est optionnel, sinon il doit être entre guillemets " " et 
suivi de ; . 

— Au moins une variable doit être donnée comme argument. 

— On peut si on le désire mentionner plusieurs variables, en les séparant 
par des virgules. 
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Il est correcte d'écrire: 

INPUT "Donnez votre âge et votre mois de naissance" ;A,M$. 


7 . 3 . Quelques rappels 


Avant toutes choses, nous pensons qu'il est utile de préciser quelques 
notions de base, sur le fonctionnement des micro-ordinateurs, et celui du 
Lynx en particulier. 

Le Lynx utilise un langage évolué, le Basic, pour communiquer avec nous. 
Les ordres donnés en Basic sont ensuite interprétés et exécutés un à un. Le 
programme interne, chargé de cette traduction s'appelle l'interpréteur 
Basic, et il a été écrit une fois pour toutes : On ne peut pas le modifier, et la 
mémoire le contenant s'appelle mémoire morte ou MEM en français, et 
ROM (Read Only Memory) en anglais. Le langage Basic comprend des 
Instructions, des Fonctions, des Opérateurs et des Opérandes ou 
Arguments. Expliquons ces termes 


1.3.1. Instructions et fonctions 

— Une Instruction est un mot-clé compris par le Basic, qui implique 
l'exécution d'une tâche précise par l'ordinateur. Certaines instructions 
doivent être suivies d'un argument, certaines non. 

Exemples \ Dans PRINT "BONJOUR", PRINT est l'inscription et "BON¬ 
JOUR" est l'argument. Mais PRINT peut aussi être utilisé seul. 

Par contre, CLS (effacement de l'écran) est une instruction utilisée toujours 
seule, alors que INPUT implique nécessairement l'emploi d'un ou plusieurs 
arguments. 

— Une Fonction est également un mot-clé, mais il s'agit plutôt d'une 
"question" que l'on pose à l’ordinateur: Celui-ci doit nous retourner 
une valeur en réponse. Une fonction s'utilise toujours à la suite d'une 
instruction, en général PRINT ou LET. 
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Exemples : Dans PRINT SI N (PI/2), SIN est la fonction et PI/2 son 
argument. 

LET A=INT(100.25) donnera à la variable A la valeur entière de l'argument, 
ici le nombre 100.25. 


1.3.2. Variables et constantes 

— Les Opérandes sont les valeurs, nombres ou séquences de caractères, 
servant d'argument aux instructions et fonctions. Les opérandes numé¬ 
riques sont de deux sortes: 

Les constantes, qui peuvent s'écrire en notation ordinaire (100, 3.1416, 
etc.) ou scientifique (2.2E+3, E.7E—12). 

Les variables, qui contrairement aux constantes peuvent changer de valeur 
en cours de programme. Leur valeur peut être définie par l'utilisateur, ou 
représenter le résultat d'un calcul. Une variable numérique est définie par 
un nom comportant au maximum un caractère alphanumérique. 

Leur valeur peut être comprise entre 9.9E63 et 9.9E—63. A, N, C sont des 
noms de variables numériques. 

Nous avons enfin les opérandes littérales, qui ne sont plus considérées 
comme des nombres, mais comme des suites de caractères. Il s'agit bien 
sûr des chaînes de caractères, et elles aussi sont divisées en constantes 
et variables. 

Une constante de chaîne est une suite quelconque de caractères (jusqu'à 
127), toujours incluse entre guillemets "" pour distinguer d'un nom de 
variable. " PROGRAMME ", "TOTO ", "123456789" sont des constantes 
chaînes. 

Les noms de variables de chaîne suivent les mêmes règles, mais doivent 
être suivis du symbole $. AS, F$ sont des variables chaînes. 

Remarquons que tous les types de variables peuvent servir à constituer des 
tableaux. Par exemple, A(3*3) représente un tableau de nombres à deux 
dimensions que l’on peut assimiler à un damier de 3x3=9 cases, chacune 
d'entre elles contenant un nombre. La lecture et l'écriture dans ces cases 
peut ensuite s'effectuer de manière directe en appelant un élément du 
tableau par son numéro, ou de manière séquentielle en lisant le tableau du 
premier au dernier élément. 
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Les nombres entre parenthèses, permettant d'appeler individuellement 
chaque élément d'un tableau s'appellent des indices; un élément de 
tableau s'appelle une variable indicée, et il est à noter que les indices 
peuvent être des constantes ou des variables. Le Lynx accepte les tableaux 
comportant un nombre quelconque de dimensions. Bien entendu, tous les 
éléments d'un tableau doivent être de même nature : Variables numériques 
ou chaînes de caractères. Voir aussi l'instruction DIM, paragraphe 1.4.2. 


1.3.3. Les opérateurs 

Les Opérateurs sont de trois sortes : 

Les opérateurs arithmétiques, que tout le monde connaît bien: +, —, * 
(multiplié par), / (divisé par), et ** (élévation à une puissance). Ces opéra¬ 
teurs s'utilisent de manière normale sur constantes et variables numé¬ 
riques, mais remarquons que " + " peut aussi s'utiliser sur les chaînes. Les 
chaînes ne sont pas additionnées, mais "concaténées", c’est-à-dire mises 
l'une à la suite de l'autre. 


Exemple : Si A=123 et B=456, alors A+B=579. Par contre, si A$-"123" 
et B$="456", AJ?+B$=" 123456". 


Les opérateurs relationnels, >, <, =, >=, <=, < > (supérieur, inférieur, 
égal, supérieur ou égal, inférieur ou égal, différent). Ces opérateurs peuvent 
s'utiliser sur des nombres. Sur le Lynx, seuls deux d'entre eux fonctionnent 
sur les chaînes, > et =. Dans le cas de deux chaînes, celles-ci sont 
comparées caractère par caractère, et sont classées par ordre alphabétique 
comme dans un dictionnaire. Une condition VRAIE vaut 1, et la condition 
FAUSSE 0. 


Exemples : 

5<2 est faux, si A=(5<2), donc A=0. 

' TOTO">"COCO" est vrai, donc l'expression (5<2)=(” COCO ">"TOTO ") 
est vraie. 

Les opérateurs logiques, AND, OR et NOT (ET, OU et NON) s'utilisent pour 
combiner entre elles des expressions utilisant des opérateurs relationnels. 
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NOT combiné avec = permet de simuler <> dans le cas de comparaisons 
de chaînes de caractères; NOT A$=B$ est équivalent à A$OB$. Enfin, 
BNAND, BNOR et BNXOR effectuent une comparaison Bit à Bit de deux 
nombres. (BNXOR est un OR exclusif.) 

Exemple : 

IF A>2 AND A<5 THEN PRINT A équivaut à: SI A EST COMPRIS ENTRE 
2 ET 5 ALORS PRINT A. 


1.3.4. Mode direct et mode programme 

Dans tout ce qui va suivre, nous nous référerons constamment au mode 
"direct” et au mode "programme". Rappelions que toute instruction ou 
séquence d'instructions entrée au clavier et non précédée d'un nombre, est 
exécutée dès que la touche RETURN est tapée: C'est le mode direct. 

Par contre, si une séquence d'instructions est précédée d'un nombre, celui- 
ci sera considéré comme un numéro de ligne. Frapper RETURN ne déclen¬ 
chera pas le déroulement du programme, mais mémorisera les instructions 
pour une exécution ultérieure: C'est le mode programme; il faudra taper 
RUN pour lancer l'exécution. 

Une facilité particulière est prévue en mode direct: Les touches alphanu¬ 
mériques du clavier génèrent les mots-clés les plus usuels du Basic, en les 
combinant avec ESC. Cette facilité accélère la frappe des programmes, et 
s'appelle le One-Key Basic. (Voir § 2.6.2.) 


1.3.5. Les limites du Lynx 

En dehors de ces quelques rappels, valables pour la grande majorité des 
Basic, les ordinateurs ont des particularités de syntaxe qu'il faut connaître 
pour pouvoir écrire un programme même très simple, et le Lynx ne fait pas 
exception à cette règle: 

— Une ligne de programme comprend au maximum 240 caractères. 

— On ne peut écrire qu'une seule instruction par ligne, mais une instruc¬ 
tion donnée pourra contenir plusieurs paramètres: 
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10 LET A=1:PRINT A:LET B=2:PRINT B provoque un message d'erreur. 


10 LET A=1,B=2 
20 PRINT A,B 


sont des syntaxes correctes. 


— La tentative d'imprimer ou d'utiliser une variable non préalablement 
définie provoque une erreur. Toute variable numérique doit donc être 
initialisée à 0 et toute variable chaîne à " " : 


10 LET A=0,B$+" " 
20 PRINT A ( B$ 


est correct. 


— Les noms de variables ne peuvent comporter qu'un seul caractère, mais 
les lettres majuscules et minuscules sont reconnues comme diffé¬ 
rentes. De plus, une variable chaîne peut avoir le même nom qu'une 
variable numérique ou qu'un tableau sans qu'il y ait confusion entre 
elles. A, a, A$, a$, A(1), a(1), A$(1) (1) sont considérées comme des 
variables différentes. 

— Les chaînes de caractères ont une longueur maximale de 127 carac¬ 
tères, et toute chaîne dont la longueur dépasse 1 6 caractères doit être 
dimensionnée au préalable. 

— La structure des tableaux autorise un nombre quelconque de dimen¬ 
sions pour les tableaux numériques, et une seule pour les tableaux de 
chaînes. 

— Une fois définie, une variable ne peut être supprimée de la mémoire 
sans lui affecter une nouvelle valeur. Seule, RUN réinitialise toutes les 
variables. 

— Les numéros de ligne peuvent prendre des valeurs décimales: 

100 REM 

100.5 REM 

104 REM sont des numéros de lignes valides. 
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1.4. Les instructions du Basic 


Leur classement est effectué par ordre alphabétique, à l'intérieur de quatre 
grandes rubriques, correspondant aux principaux types de commandes du 
Basic Microsoft: 


1.4.1 

Commandes système 

1.4.2 

Usage générai 

1.4.3 

Branchements 

1.4.4 

Périphériques 

AUTO 

CCHAR 

FO R/N EXT/STE P 

APPEND 

CLS 

CLR 

GOSUB-RETURN 

EXT SPRINT 

CONT 

DATA 

GOTO 

EXT PPRINT 

DEL 

DIM 

LABEL 

LINK ON 

END 

ERROR 

PROC/DEFPROC 

LINK OFF 

LIST 

IF/THEN/ELSE 

REPEAT/UNTIL 

LLIST 

NEW 

IN PUT 

WHILE/WEND 

LOAD 

RENUM 

LET 


LPRINT 

RUN 

PAUSE 


MLOAD 

SPEED 

PRINT 


SAVE 

TRACE ON 

RANDOM 


TAPE 

TRACE OFF 

READ 

REM 

RESTORE 

SWAP 

WINDOW 


VERIFY 


1.4.1. Les commandes système 

AUTO 

Syntaxe : AUTO [<N° de ligne début>,<lncrément>] 

Applications : Cette instruction d'aide à la programmation génère automati¬ 
quement des numéros de ligne à partir de <N° de ligne début> avec un pas 
de <lncrément>. Ces deux paramètres peuvent être des nombres entiers 
ou décimaux. 
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Remarque: 

— En cas d'omission des paramètres, AUTO 100,10 s'effectue par défaut. 

— Si un numéro de ligne généré est identique à celui d'une ligne de 
programme déjà en mémoire, un point d'exclamation (!) s'affiche à sa 
droite, vous indiquant ainsi que l'ancienne ligne sera effacée lors de la 
validation de la nouvelle. 

— L'annulation du mode AUTO s'effectue en tapant RETURN sans entrer 
de données après le numéro de ligne. 

— En donnant à <N° de ligne début> la valeur correspondant à la fin d'un 
programme déjà en mémoire, on peut compléter celui-ci tout en 
conservant la numérotation existante. 


CLS 

Syntaxe : CLS 

Application : Efface l'écran, et place le curseur en haut et à gauche. 

REMARQUE: CLS efface tout l'écran, quel que soit son contenu, graphique 
ou texte. Seules PROTECT et WINDOW permettent l'effacement sélectif 
de données (cf. § 3.1.2 et 3.1.3). 

CONT 

Syntaxe : CONT 

Application : Redémarre un programme interrompu par l'instruction STOP, 
ou en pressant la touche ESC. 

REMARQUE: CONT ne fonctionne que si aucune modification n'a été 
apportée au programme pendant l'interruption. Voir aussi § 2.6.2. 

DEL 

Syntaxe : DEL <N° ligne début>[,<N° ligne fin>| 

Application : Supprime les lignes comprises entre le numéro de début et le 
numéro de fin spécifiés. 

Remarques: 

— Si on omet <N° ligne fin>, DEL supprime la ligne correspondant à <N° 
début>. 
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DEL ne s'utilise qu'en mode direct, son emploi dans un programme 
interrompra l'exécution. 


END 

Syntaxe : END 

Application : Indique la fin d'un programme. Le message "READY!" est 
affiché à la position du curseur. L'omission de END permet d'éviter 
l'impression de ce message. 


LIST 

Syntaxe : LIST <N° de ligne début>[,<N° de ligne fin>] 

Application : Liste à l'écran le programme en mémoire, en commençant par 
<N° ligne début> et s'arrêtant à <N° ligne fin>. 

Remarques: 

— L'omission de <N° ligne fin> permet l'affichage d’une seule ligne de 
programme. 

— Comme pour DEL, l'emploi, de LIST à l'intérieur d'un programme inter¬ 
rompt le déroulement de celui-ci. 

Si les numéros de ligne spécifiés sont plus grands ou plus petits que les 
numéros existant, le listing se fera à partir des numéros les plus 
proches en ordre croissant ou décroissant. 


NEW 

Syntaxe : NEW 

Application : Supprime programme et variables de la mémoire du Lynx. 

Remarque: On peut récupérer un programme accidentellement détruit par 
NEW en tapant: POKE 26957,192. 


RENUM 

Syntaxe : RENUM [<N° ligne début>,<lncrément>] 

Application : Renumérote toutes les lignes d'un programme. La nouvelle 
numérotation débute à <N° ligne début> avec un pas de <lncrément>. 
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Remarques: 

— En cas d'omission des paramètres, RENUM 100,10 s'effectue par 
défaut. 

— Tous les branchements par GOTO et GOSUB sont également 
renumérotés. 

RUN 

Syntaxe : RUN [<N° de ligne>| 

Application : Démarre l'exécution du programme en mémoire au numéro de 
ligne spécifié. Si ce paramètre est omis, le programme débute au plus petit 
numéro existant. 

Remarques: 

— RUN efface toutes les variables de la mémoire. 

— Si <N° de ligne> n'existe pas, une erreur est provoquée. 

SPEED 

Syntaxe : SPEED N 

Application : SPEED règle la vitesse d'exécution d'un programme. N est un 
entier compris entre 0 et 255. A la mise sous tension, N est initialisé à 0, ce 
qui correspond à la rapidité maximale. 

Remarque : SPEED ne peut s'utiliser qu'en mode programme. 

STOP 

Syntaxe : STOP 

Application : STOP est l'équivalent en mode programme de la touche ESC. 
Il interrompt l'exécution, et retourne en mode direct en affichant le numéro 
de la dernière ligne exécutée. 

TRACE ON, TRACE OFF 

Syntaxe : TRACE ON 
TRACE OFF 



Applications :TRACE ON liste à l'écran entre <> tous les numéros des 
lignes exécutées pendant le déroulement d'un programme. Cette instruc¬ 
tion fournit une aide précieuse à la mise au point, la détection des erreurs 
s'effectuant simplement en suivant pas à pas le cheminement du 
programme. TRACE OFF permet le retour au mode normal. 

Remarques: 

— TRACE peut aussi bien être inséré dans un programme qu'utilisé en 
mode direct. 

— Les numéros de ligne s'affichant à la position courante du curseur qui 
varie souvent au cours d'un programme, l'écran devient vite illisible en 
mode TRACE. Pour résoudre ce problème, il suffit de ralentir la vitesse 
d'affichage avec SPEED, ou d'appuyer de temps à autre sur la touche 
ESC pour interrompre l'exécution. Le lecteur disposant d'une impri¬ 
mante pourra également copier le contenu de l'écran pour examen 
ultérieur. (Voir § 1.4.4). 


1.4.2. Le Basic d'usage générai 
CCHAR 

Syntaxe: CCHAR <code 1>*256 + <code 2> 

Application : Le curseur apparaît à l’écran sous forme d'un pavé clignotant. 
Ce pavé est constitué de deux caractères affichés alternativement, un 
espace (code ASCII 32) et un bloc en vidéo inverse (code ASCII 239). On 
peut modifier ce curseur en changeant le code des caractères affichés par 
l'instruction CCHAR. <code 1> et <code 2> sont des entiers compris 
entre 32 et 255. 

Exemple : 

CCHAR 32*256+42 remplace le bloc en vidéo inverse par un astérisque. 

CFR 

Syntaxe : CFR N 

Application : Modifie la vitesse de clignotement du curseur. N doit être un 
entier compris entre 1 et 65535. 
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REMARQUE: Plus la valeur de N est élevée, plus la vitesse de clignotement 
ralentit. A la mise sous tension N est égal à 500. 

DATA 

Syntaxe: DATA <constante>[,<constante>... 

Application : DATA permet de stocker une série de constantes numériques 
ou chaînes, qui pourront être relues et affectées à des variables par READ. 
<Constante> peut être un nombre, une expression numérique ou une 
chaîne de caractères. Dans le cas des chaînes, les guillemets doivent être 
omis. 

Remarques: 

— Une ligne contenant une instruction DATA est ignorée par le Lynx lors 
de l'exécution du programme, et peut donc être située à n'importe quel 
point de celui-ci. 

— Si plusieurs lignes contiennent des DATA, la lecture avec READ se fera 
dans l'ordre croissant des numéros de ligne (voir aussi cette 
instruction). 

Exemple : 

DATA 35,bonjour,1£(0*PI 


DIM 

Syntaxe 7 : DIM <nom tableau>(<dim.1>[*<dim.2>*<dim.N>)) 

Applications : Définit les dimensions des tableaux numériques avant leur 
utilisation selon les règles suivantes: 

— Le nombre de dimensions N n'est pas limité. 

— <Nom tableau> est un nom de variable numérique standard, il sert 
ensuite à caractériser le tableau. 

— <dim.1 >...<dim.N> sont des entiers affectés à chacune des dimen¬ 
sions du tableau pour en définir la taille. 

L'emploi des éléments d’un tableau numérique se fait ensuite à l'aide de 
variables indicées, dont la syntaxe est fonction du nombre de dimensions 
choisi, et dont les indices sont liés aux valeurs de ces dimensions. Leur 
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emploi étant assez complexe, voyez aussi les exemples et programmes 
présentés plus loin pour les méthodes pratiques à mettre en œuvre. 

Syntaxe 2: DIM <Nom de tableau de chaînes>«longueur>)[(<dim.>)) 


Application : Définit la dimension des tableaux de chaînes avant utilisation. 

(Une seule dimension possible). 

— <Nom tableau> est un nom de variable chaîne servant à caractériser le 
tableau. 

— <Longueur> est un entier compris entre 0 et 127, quifixe la longueur 
maximum, en nombre de caractères, d'une chaîne pouvant être 
intégrée dans le tableau. 

— <dim.> est un entier représentant la taille du tableau, c'est-à-dire le 
nombre maximum de chaînes qu'il pourra contenir. Si ce paramètre est 
omis, le tableau sert uniquement à spécifier la longueur d'une chaîne. 

Comme pour les tableaux numériques, des variables indicées sont utilisées 

pour caractériser les éléments d'un tableau de chaînes. Soit par exemple le 

tableau défini par DIM A$(10)(4), les cinq éléments qui le composent 

s'appellent A$(0), A$( 1 )...A$(4). 

Remarques: 

— Le nombre d'éléments par dimension n'est limité que par la taille de 
l'espace mémoire disponible. Sur le Lynx 96 K, DIM A(4000) est 
accepté, et laisse 18 K disponibles pour le programme. 

— On ne peut pas re-dimensionner un tableau, seuls NEW et RUN le 
permettent en effaçant toutes les variables de la mémoire. 

— Le premier élément d'un tableau a toujours pour indice 0: DIM A(12) 
définit donc un tableau à une dimension de 13 éléments, dont le 
premier est A(0) et le dernier A(12). 

— La tentative d'utiliser un élément de tableau numérique sans l'avoir 
préalablement dimensionné ou même sans affecter de valeurs à ses 
éléments provoque une erreur. 

— Un tableau peut porter le même nom qu'une variable simple. L'emploi 
des minuscules est également autorisé dans le cas des tableaux numé¬ 
riques: A( 1 ), a(1), A, a, A$(12) peuvent coexister en mémoire. 
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— On peut dimensionner plusieurs tableaux dans une instruction DIM, en 
séparant leurs noms par des virgules: 

DIM A(12),b( 1 1 ),C$( 10) (30),D(5*5*5) est une syntaxe correcte. 

— En ce qui concerne les tableaux de chaînes, on peut affecter à un 
élément du tableau une chaîne de longueur supérieure à celle prévue 
dans DIM : Les caractères en excès ne sont alors pas pris en compte. 


Exemples : 

Les tableaux à une dimension : 

— DIM A( 10) dimensionne un tableau numérique A de 1 1 cases. 

— DIM A$(10) (5) définit un tableau de six chaînes dont la longueur maxi¬ 
mum est de 10 caractères. Ses éléments seront nommés A$(0), 
A$( 1 )...A$(5). 

— DIM A$( 10) crée une chaîne AS, de 10 caractères maximum. 

Les tableaux numériques multi-dimensionnels 

L'emploi de tableaux numériques à plusieurs dimensions est assez 
complexe sur le Lynx, et de nombreuses méthodes sont envisageables. Un 
nombre de dimensions supérieur à trois étant rarement rencontré, nous 
nous limiterons donc à cette valeur dans les exemples proposés. 

Tableaux à deux dimensions : DIM A(<dim.1>*<dim.2>) 

Un tableau à deux dimensions peut être considéré comme un livre, où 
<dim.1> représente un numéro de ligne dans une page, et <dim.2> le 
numéro de la page. Soient L un numéro de ligne et P un numéro de page, 
on peut adresser chaque élément du tableau avec: 

A(L*<dim.2>+P) 

L doit être compris entre 0 et <dim.1> non inclus. 

P doit être compris entre 1 et <dim.2> inclus. 

<dim.1> doit être égal au nombre maximal de lignes désiré + 1. 
<dim.2> est égal au nombre de pages désiré. 

Cette méthode qui gaspille un peu de mémoire (on n'utilise pas l'élément 0 
des tableaux), a cependant le mérite d’être la plus simple à utiliser. 
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1O0 REM DIM 2 
110 CLS 
120 T=0,H=5 
130 DIM A(5*3 > 

140 FOR P=1 TO 3 
150 FOR L=1 TO 4 
160 LE T A<L*3+F')=L 

170 PR INT© 3+t,h; "A(";l.; ", ";P; " )=■• ;l; 
ISO LET H=H+10 

1 90 NE X T L. 

200 LET H=5,T=T+45 
210 NEXV P 


Explications : 

120 : Initialisation des variables T et H, servant à placer le curseur à 

l’écran. 

130 : On dimensionne le tableau A en prévoyant trois pages de quatre 

lignes. 

140,210: Boucle balayant le tableau page par page (ligne 140), puis ligne 
par ligne (ligne 150), en initialisant chaque ligne avec son 
numéro (ligne 160). La ligne 170 sert à afficher le contenu du 
tableau (voir également PRINT). 


Tableaux à trois dimensions'. DIM A(<dim. 1>*<dim.2>*<dim.3>) 

Si la première dimension représente un numéro de ligne et la deuxième un 
numéro de page, on peut par analogie considérer la troisième dimension 
comme un numéro de volume. Soient L un N° de ligne, P un N° de page et 

V un N° de volume, on peut adresser chaque élément du tableau avec: 

A(L*< dim.2 >*< dim.3 > + P* <dim.3> +V) 

L doit être compris entre 0 et <dim.1> exclus. 

P doit être compris entre 0 et <dim.2> exclus. 

V doit être compris entre 1 et <dim.3> inclus. 

Comme précédemment, <dim.1> et <dim.2> correspondent à la taille 
désirée pour chaque dimension + 1, tandis que <dim.3> est égal à la taille 
de la dernière dimension. 
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100 REM DIM 3 
110 CLS 
120 T=0,H=5 
130 DIM A(5*5*3) 

140 FOR V=1 TO 3 
150 FOR P=1 TO 4 
160 FOR L -1 TO 4 

1 70 LET A ( L*5*3+P*3+V) =L. 

180 PR I NT® 3+T, H ; " A < " ; L ; ", " ; F' ; ", " ; v ; " ) = " ; L. ; 

190 LET FM H 10 

200 NEX T L 

2 1 O NE XT P 

220 LET H=5,T=T+45 
230 NEXT V 


Ce programme est identique au précédent, mais comprend trois boucles 
FOR-NEXT imbriquées au lieu de deux pour balayer la totalité du tableau 
A(). 


ERROR 

Syntaxe: ERROR N 

Application : Interrompt le programme et génère une erreur dont le numéro 
est défini par N. Le message d'erreur correspondant est affiché à l'écran à 
la position courante du curseur. 

REMARQUE: N doit correspondre à l'un des codes d'erreur du Lynx, réperto¬ 
riés en Appendice. 


IF THEN ELSE 

Syntaxe : IF <condition i>[AND Ccondition 2>) THEN <instruction> 

[OR 

ELSE instruction 2> 

Applications : La première ligne de programme présentée exécutera 
l'instruction située après THEN si <condition 1> et/ou <condition 2> sont 
respectées. Dans le cas contraire, la seconde ligne, facultative, permet 
d'inclure une autre instruction. 

Remarque: Le Lynx n'acceptant qu'une seule instruction par ligne, ELSE 
doit impérativement être placé sur la ligne suivant IF et THEN. 
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Exemples : 


- IF rt>B AMD A L H !EN PRIMT "A EST COMPRIS ENTRE B ET C" 

5 INPUT"DONNEZ UN NOMBRE";A 
10 IF A/2= I NT \ A/ 2 > T HEM PR INT "A EST PAIR" 

20 ELSE PRINT "A EST IMPAIR" 

30 GOTO 5 


INPUT 

Syntaxe : INPUT [''<message>";)<variable>[,<variable>...| 

Application'. Lorsque une instruction INPUT est rencontrée dans le 
programme, celui-ci s'arrête momentanément et affiche un point d'interro¬ 
gation sur l'écran pour indiquer qu'il attend des données. Si un message 
est inclus dans l'instruction, il est affiché avant le point d'interrogation. 
<variable> est un nom de variable quelconque, numérique, chaîne ou 
tableau à laquelle sera affectée la valeur frappée au clavier. 

REMARQUE : L'entrée est validée par RETURN. 


LET 

Syntaxe : | LET|<variable>=<constante>|,<variable>=<constante>...| 

Application : Assigne à <variable> la valeur de <constante>. Ces deux 
paramètres doivent évidemment être du même type, numérique ou chaîne. 

Remarque: LET peut être omis, et plusieurs affectations de variables effec¬ 
tuées sur une même ligne de programme. 


PAUSE 

Syntaxe : PAUSE N 

Application : Interrompt le programme pour une durée N. Si N= 10000, 
l'exécution est suspendue pendant une seconde. 


PRINT 

Syntaxe: PRINT | @ C,L;][<liste de données>] 
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Application : Inscrit <liste de données> à l'écran, à la position courante du 
curseur. Les données à imprimer peuvent être des constantes ou des 
expressions numériques, des chaînes de caractères ou encore n'importe 
quel type de variables. 

Ces données peuvent être constituées d'un seul ou plusieurs éléments 
séparés par des ou des Un affiche les éléments les uns à la 
suite des autres, alors que "place l'élément qui suit à la position de tabu¬ 
lation suivante (une position toutes les dix colonnes). Si un termine la 
série de données, le curseur demeure à la fin de celles-ci, alors que dans le 
cas contraire un passage à la ligne suivante est effectué. 

L’option @ permet de placer le curseur, et donc la position d'écriture, à 
n'importe quel endroit de l'écran. <C> représente le numéro de colonne et 
<L> le numéro de ligne. 

Remarques: 

— PRINT @ fonctionne en haute-résolution, et autorise donc un place¬ 
ment du curseur hors des positions d'écriture standard. L'écran est 
divisé en 126 colonnes et 248 lignes pour cette instruction. <C> doit 
donc être compris entre 0 et 126 ce qui correspond à un pas de deux 
pixels, et <L> entre 0 et 247, soit un pas de pixel (on appelle pixel le 
point le plus petit affichable en haute-résolution). Pour respecter les 
positions d'écriture standard, il faut avoir: 

<C> compris entre 3 et 123 par pas de 3 
<L> compris entre 5 et 245 par pas de 10. 

— On peut employer PRINT @ C,L sans pour effacer une ligne de 
texte à l'écran. 

— PRINT peut être remplacé par un point d'interrogation (?) dans un 
programme. 

Exemples : 

PRINT 4*3,"CHA";"IME" 

PRINT® 3,5;"DEBUT DE L’ECRAN" 

PRINT® 3,235;"DERNIERE LIGNE DE L’ECRAN" 
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10 REM EFFAÇAGE DE LIGNES PAR PRINT0 
20 CLS 
25 A= 1 

30 FOR 1=1 TO 80O 
40 PRINT "A"; 

50 NEXT I 
60 PR INT 

70 ?"POUR EFFACER, TAPEZ UNE TOUCHE" 

80 X=GETN 

90 FOR 1=1 TO 20 

100 PR INT@ 3, (1*10)-5 

110 NEXT I 


Explications : 

30,50 : Remplissage de l'écran avec des "A". 

80 : GETN attend la frappe d'une touche (cf. § 1.5.4). 

90,110: Effacement ligne par ligne en positionnant le curseur avec 
PRINT @. 

RANDOM 

Syntaxe: RANDOM 

Application : Son insertion au début d'un programme permet, lors de 
l'emploi de nombres aléatoires, d'éviter la répétition d'une même séquence 
à chaque démarrage par RUN. (Voir aussi RND, § 1.5.1). 


RE AD 

Syntaxe : READ <variable>[,<variable>,...] 

Application : READ affecte aux variables les constantes contenues dans les 
listes de DATA. Les variables peuvent être numériques ou chaînes, mais 
leur type doit correspondre à celui des constantes lues dans les DATA. 

Remarques: 

— Lorsque tous les DATA ont été lus dans un programme, l'emploi de 
READ provoque un message d'erreur. (Voir RESTORE.) 

— Les DATA sont lus dans l'ordre des numéros de ligne, en commençant 
au début du programme. 
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REM 

Syntaxe: REM <commentaire> 

Application-. Lorsque l'instruction REM est rencontrée dans un programme, 
toute information placée à sa droite est considérée comme un commen¬ 
taire et n'implique aucune exécution. 

Remarque: REM est utilisé pour clarifier les listings, mais diminue l'espace 
mémoire disponible. 

RESTORE 

Syntaxe: RESTORE [<N° de ligne>] 

Application : Si <N° de ligne> est omis, RESTORE replace le pointeur des 
DATA sur la première ligne du programme les contenant. La lecture avec 
READ se fait ensuite à partir du pointeur. Si une valeur est spécifiée pour 
<N° de ligne>, le pointeur est placé sur la ligne de DATA ayant ce numéro, 
ou le suivant immédiatement. 

Remarque: <N° de ligne> peut être aussi bien un nombre entier que frac¬ 
tionnaire, ou même une expression numérique. 


SWAP 

Syntaxe: SWAP A,B 

Application : Échange le contenu de deux variables. <A> et <B> sont des 
variables numériques, l'instruction SWAP ne pouvant fonctionner sur les 
chaînes de caractères. 

REMARQUE: SWAP est très utile pour les tris de nombres. 


Exemple : 

K»0 REM TRI RIPPLE-SORT D’UNE LISTE DE NOMBRES 
110 DIM A(5) 

120 DATA 5,12,9,8,4 
130 F O Fi 1=0 TO 4 
140 READ A(I) 

150 NE X T I 

160 FOR 0=0 TO 4 

170 FOR 1=0 TO 4 

100 IF A <J)>A(I> THEN SWAP A(I),A(J) 

190 NEXT I 
200 PRINT A(J), 

210 NEXT 0 
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Explications : 

110,150: Une liste quelconque de nombre est lue dans un DATA et 
placée dans le tableau A( ). 

1 60,21 0 : Chaque élément du tableau est successivement comparé à tous 
les autres, et le plus petit des deux placé en début de liste. 


WINDOW 

Syntaxe: WINDOW G,D,H,B 

Application : L'emploi de WINDOW autorise la réservation d'une zone à 
l'intérieur de l'écran dont les limites sont définies par <G>, <D>, <H>, 
<B>, et pour laquelle les instructions d'affichage en mode texte fonction- 
nene comme s'il s'agissait de la totalité de l'écran. Son contenu n'est pas 
perturbé par l’exécution de WINDOW. 

Les règles d'utilisation de cette instruction sont identiques à celles de 
PRINT @ : L'écran est divisé en 126colonnes et 248 lignes. 

<G> et <D> correspondent respectivement au bord gauche et au bord 
droit de la fenêtre, et doivent être compris entre 0 et 126. Les valeurs 
comprises entre 3 et 123 avec un pas de 3 représentent les positions 
d'écriture standard. 

<H> et <B> correspondent à ses bords supérieur et inférieur et doivent 
être compris entre 0 et 248. Les valeurs comprises entre 5 et 245 avec un 
pas de 10 accèdent aux 24 lignes d'affichage disponibles. 

Bien entendu, <D> et <B> doivent être supérieurs respectivement à <G> 
et à <H> sinon une erreur est provoquée. 

Remarques: 

— A la mise sous tension, WINDOW est initialisé à WINDOW 
3,123,5,245. 

— L'instruction a de très nombreuses applications, pour la gestion de 
l'écran et en mode graphique. (Voir § 3.1.2 et § 4.1.4). 
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1.4.3. Boucles et branchements 


FO R/STE P/IM EXT 

Syntaxe: FOR N=<valeur initiale> TO <valeur finale>[STEP S] 


<traitement> 


N EXT N 

Applications : Ces instructions permettent la création d'une boucle, à l'inté¬ 
rieur de laquelle un traitement donné peut être effectué un certain nombre 
de fois: Au démarrage, la variable <N> est égale à <valeur initialeX La 
section du programme qui suit l'instruction FOR est exécutée jusqu'à 
rencontre de l'instruction NEXT. La valeur de N est alors incrémentée de 
<S>, et l'exécution est reprise à la ligne suivant FOR. Lorsque <N> est 
égal ou supérieur à <valeur finale>, la programme passe à la ligne suivant 
NEXT. Le nombre de répétitions est donc égal à (1+<valeur 
finale>—<valeur initiale>)/<S>. 

Remarques: 

— Si l'instruction STEP est omise, <S> est égal à 1 par défaut. 

— Après exécution de la boucle, <N> est égal à <valeur finale> + <S>. 

— <Valeur initiale> peut être supérieure à <valeur finale>, en spécifiant 
un pas négatif pour STEP. 

— Un FOR doit toujours être suivi de NEXT, sinon une erreur est 
provoquée. 

— On peut imbriquer des boucles entre elles (voir exemple). 

— Sur le Lynx, une limitation du Basic interdit la sortie d'une boucle avec 
un GOTO avant que N ait atteint sa valeur finale. Une tentative de 
sortie conditionnelle de la boucle (par IF...THEN GOTO) perturbe la pile 
des GOSUB, ce qui a pour conséquence l'émission d'un message 
d'erreur au premier RETURN rencontré ! Pour pouvoir inclure des tests 
à l'intérieur d'une boucle, il est toutefois possible d'utiliser WHILE- 
WEND ou REPEAT-UNTIL qui n'introduisent aucune perturbation dans 
les programmes. 
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Exemple : 


100 REM BOUCLE SIMPLE 
110 FOR 1=1 TO 100 
120 PR I NT I; 

130 NEXT I 


100 REM INCREMENT NEGATIF 
110 FOR 1=100 TO 1 STEP -1 
120 PRINT I; 

130 NEXT I 


100 REM BOUCLES IMBRIQUEES 

110 FOR I=65 TO 90 

120 FOR J=1 TO 10 

130 PR INT CHR$<I);J 

140 NEXT J 

150 NEXT I 


Explication '. Les lignes 140 et 1 50 ne peuvent être interverties, sous peine 
de provoquer un message d'erreur. 


GOSUB/RETURN 

Syntaxe: GOSUB <N° de ligne> 

Application : Effectue un branchement vers le sous-programme débutant à 
<N° de ligneX Le sous-programme doit se terminer par RETURN, pour 
permettre un retour au programme principal. L'exécution est alors reprise à 
la ligne suivant le dernier GOSUB rencontré. Un sous-programme peut être 
placé n'importe où, mais la recontre d'une instruction RETURN sans que le 
branchement ait été préalablement effectué par GOSUB provoque une 
erreur. 

Remarques: 

— Les sous-programmes peuvent en appeler d'autres à leur tour, et leur 
nombre n'est limité que par la taille de la pile du Lynx ( 1024 octets). 

— <N° de ligne> peut être une expression numérique contenant des 
variables, pour un branchement calculé. 

— L’instruction LABEL examinée plus loin permet de simplifier l'emploi de 
GOSUB. 

— Une sortie intempestive des boucles FOR/NEXT peut perturber le fonc¬ 
tionnement des GOSUB d'un programme (voir FOR/NEXT). 
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— La multiplication des GOSUB est un moyen simple de structurer les 
programmes. Elle permet des modifications aisées de l'organisation 
interne, en changeant des blocs de lignes sans avoir à redéfinir tout le 
programme, et le réemploi ultérieur de routines fréquemment utilisées 
sans les réécrire. 

Exemples : 


100 REM DEMO GOSUB 
110 GOSUB 1000 
120 PRINT"TERMINE" 

130 END 

1000 REM SOUS-PROGRAMME BOUCLE 
1010 FOR I==l TO 100 
1020 PR INT I; 

1030 NEXT I 
1040 RETURN 


Un exemple de programme structuré: 

100 REM PROGRAMME PRINCIPAL 
110 GOSUB LABEL EFFACER 
120 GOSUB LABEL REMPLIR 
130 GOSUB LABEL COMMENTAIRE 
140 PR INT "TERMINE" 

150 END 

1000 LABEL EFFACER 
1010 CLS 
1020 RETURN 
2000 LABEL REMPLIR 
2010 FOR I==l TO 400 
2020 PRINT"A"; 

2030 NEXT I 
2040 RETURN 

3000 LABEL COMMENTA IRE 
3010 PR INT 

3020 PR INT "TROIS SOUS PROGRAMMES SONT UTILISES POUR EFFECTUER 
SIJCCESSI VE ME! N T CES OPERAT IONS " 

3030 RETURN 

Explication : Le programme principal ne fait qu'appeler successivement 
tous les sous-programmes, qu'on peut très facilement modifier, remplacer 
ou même réutiliser sans toucher à la structure générale. 


GOTO 

Syntaxe '. GOTO <N° de ligne> 
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Application : Effectue un branchement inconditionnel vers la ligne spécifiée. 
Contrairement à GOSUB, l'emploi de GOTO est en contradiction avec la 
clarté des listings. Les auteurs conseillent de n'utiliser cette instruction que 
pour créer des boucles ou lorsque l'emploi d'un sous-programme est 
impossible. 

REMARQUES: 

— GOTO est très utile en mode direct pour essayer des parties d'un 
programme lors de sa mise au point. 

— L'instruction LABEL permet de clarifier l'emploi des GOTO. 

— Le fait de sortir d'une boucle FOR/NEXT par GOTO perturbe la pile des 
GOSUB, voir FOR/NEXT. 

— Comme pour GOSUB, <N° de ligne> peut être une expression numé¬ 
rique contenant des variables. 

Exemples : 

10 X = GETN 

20 IF X*32 THEN GOTO 1000 

30 PRI NT X 

40 GOTO 10 

1000 PRINT "TERMINE" 

Ce petit programme saisit et affiche les codes des touches frappées au 
clavier, jusqu'à l'entrée d’un espace (voir GETN § 1.5.4). 


LABEL 

Syntaxe : GOSUB LABEL <nom> 

GOTO LABEL <nom> 

LABEL <nom> 

Application : LABEL permet de remplacer le numéro de ligne dans GOTO et 
GOSUB par l'étiquette <nom>. Le branchement est ensuite effectué vers 
la ligne de programme contenant LABEL <nom>. Ce dernier est une 
chaîne non encadrée de guillemets, et d'une longueur maximum de 
80 caractères (plus la chaîne est courte, plus la recherche de l'étiquette est 
rapide). 

Remarques: 

— L'exécution de GOSUB LABEL est plus rapide que le branchement à un 
numéro de ligne. 
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— Les espaces sont reconnus par le Basic Lynx comme faisant partie inté¬ 
grante du nom, attention donc aux erreurs d'entrée ! 

— Dans le cadre d'une programmation structurée, l'emploi de LABEL rend 
les sous-programmes indépendants des numéros de lignes, et clarifie 
les listings. 


Exemple : 

Reprenons l'exemple de programmation structurée avec GOSUB: 

iôÿ REM PROGRAMME PRINCIPAL 

110 GOSUB 1000 

120 GOSUB 2000 

130 GOSUB 3000 

140 PR INT "TERMINE" 

150 ENB 

1000 REM EFFACEMENT ECRAN 
1010 CL.S 
1020 RETURN 

2000 REM REMPLISSAGE ECRAN 
2010 FOR 1=1 TO 400 
2020 PR INT"A"; 

2030 NEXT I 

2040 RETURN 

3000 REM COMMENTAIRES 

3010 PR INT 

3020 PR INT "TROIS SOUS PROGRAMMES SONT UTILISES POUR EFFECTUER 
SUCCESSIVEMENT CES OPERATIONS" 

3030 RETURN 


PROC/DE FPROC/E N PROC 

Syntaxe : PROC <nom> [(<expression 1 >,<expression 2>...)] 

DEFPROC <nom> [(<variable 1>,<variable 2>...)| 

ENDPROC 

Application : PROC et DEFPROC sont de puissantes instructions dérivées 
du langage Pascal, dont la fonction est la création de procédures. Une 
procédure est très semblable à un sous-programme associé à une étiquette 
(GOSUB LABEL): DEFPROC <nom> et ENDPROC marquent respective¬ 
ment le début de la fin de la procédure, PROC <nom> effectue le bran¬ 
chement à partir du programme principal. <nom> est une chaîne de carac¬ 
tères non entourée de guillemets, et permet de différencier les procédures 
les unes des autres. 
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La principale supériorité de DEFPROC sur GOSUB réside dans la possibilité 
de passer des paramètres au sous-programme, lors de son appel par 
PROC. Pour ce faire, il suffit d'accoler à DEFPROC une liste de variables 
séparées par des et incluse entre parenthèses. Lors de l'appel de la 
procédure, ces variables prendront les valeurs spécifiées dans l'instruction 
PROC effectuant le branchement. 

<variables> doivent être des variables numériques. 

<expressions> peuvent être des variables, des constantes ou des expres¬ 
sions numériques. 

Remarques: 

— Le nombre d'expressions spécifiées dans PROC doit correspondre au 
nombre de variables prévues dans DEFPROC. 

— <nom> doit toujours être écrit de la même manière pour être reconnu, 
les espaces étant significatifs. 

— Une procédure ne doit jamais être exécutée sans être appelée par 
PROC, sinon une erreur est provoquée. 

— On peut inclure dans la liste d'expressions qui suit PROC une variable, 
à la condition qu'elle ait été préalablement définie dans le programme: 
Sa valeur sera transférée à la variable correspondante de DEFPROC. 
Cette possibilité autorise l'utilisation de variables locales dans un sous- 
programme, totalement indépendantes de celles du programme 
principal. 

— L'emploi de DEFPROC simplifie l'appel par lui-même d'un sous- 
programme, les valeurs des variables étant successivement transférées 
par PROC. Cette possibilité, qu'on nomme récursivité en Pascal, auto¬ 
rise des traitements puissants. Cependant, le Basic Lynx ne possédant 
pas d'interpréteur récursif gardant en mémoire les variables sur 
plusieurs niveaux d'appel, l'emploi de procédures récursives reste assez 
limité. 


Exemple : 


10O R: EM PROCEDURE 
1 1 0 CL S 

120 INPUT"NOMBRE DE LIGNES A IMPRIMER "5 IM 
130 PRINT 

150 PROC BOUCLE (N) 

160 PRINT 


28 



170 PR INT"IMPRESSION DES » ;N$" LIGNES TERMINEE 
180 PR INT 
190 END 

200 DEFPRQC BOUCLE (A) 

210 RËF'EAT 

220 FOR 1 = 1 TO 40 

230 PRINT "A"; 

240 NEXT I 
250 LE!T A=A-1 
260 UNI IL. A=0 
270 ENDPROC 


Explications : 

120 : Entrée par l'utilisateur du nombre de lignes N à imprimer à 

l'écran. 

1 50 : Appel de la procédure BOUCLE, avec passage de la valeur de N 

à la variable A de DEFPROC. 

200,270: Procédure affichant A lignes à l'écran. 

170 : La valeur de N reste inchangée et peut être réemployée, seule 

A, variable locale a été modifiée. 


10O REM PROCEDURE RECURSIVE 
110 CLS 

120 INPUT"VOTRE NOM ";A$ 

130 PR INT 

150 PROC NOM (LËN<A*)> 

160 PR INT 

170 PRINT"TERMINE" 

180 PRINT 
190 END 

200 DEFPROC NOM (L) 

2 1 O P RIN T L E F T*<A*, L. ) 

220 L--L -1 

230 IF L >0 THEN PROC NOM (L) 
240 ENDPROC 


Explications : 

120 : Saisie d'un nom, chargé dans A$. 

150 : Appel de la procédure NOM, avec passage de la longueur de A$ 

à la variable L de DEFPROC. 

200,240: Procédure NOM: 

210: Affichage des L premiers caractères de A$. 


29 



220: L est décrémentée de 1. 

230: Si L n'est pas égal à 0, la procédure se rappelle elle- 
même, avec passage de la nouvelle valeur de L. 


REPEAT UIMTIL 

Syntaxe : REPEAT 


Lignes de programme 


UNTIL <condition i >|AND < CO ndition 2>....] 

(OR 

Application : Toutes les lignes de programme situées entre REPEAT et 
UNTIL sont exécutées en boucle jusqu'à ce que les conditions situées après 
UNTIL soient vraies (égales à 1). 

REMARQUE : Ces commandes sont très proches de WHILE/WEND, avec une 
différence cependant: Alors que WHILE teste les conditions en début de 
boucle, UNTIL effectue le test à la fin. Ceci implique que même si la condi¬ 
tion est fausse au départ de la boucle, celle-ci sera exécutée au moins une 
fois. 


Exemple : 

Programme REPEAT/UNTIL 

1 0 I = ! 

20 REFEA I' 

3 0 F ’ F •: 1 N1 " Fi 1 ' î 

40 I -I. * 1 
50 UN! IL. 1=800 


Équivalent FOR/N EXT 

10 FOR 1=1 TQ 800 
20 PRINT "A"j 
30 NE X T I 


REPEAT/UNTIL permet une sortie de boucle assujettie à un ensemble de 
conditions et à un comptage, tandis que FOR/N EXT n’exécute qu'un comp¬ 
tage. Le programme suivant interrompt la boucle si 20 lignes d'écran sont 
remplies, ou si l'utilisateur appuie sur une touche du clavier (ligne 60). 
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10 1 = 1 
20 REPEAT 
30 PRINT "A"; 

40 1=1+1 
50 K=KEYN 

60 UN I 11 1=800 OR K< >0 

70 PRINT 

30 PRINT"TERMINE" 


Si une touche est appuyée immédiatement après RUN, un seul caractère 
sera imprimé à l'écran. 


WHILE/WEND 

Syntaxe -. WHILE <condition 1>^ A ^^<condition 2>....] 

[OR 


Lignes de programme 


WEND 

Application : Toutes les lignes de programme situées entre WHILE et 
WEND sont exécutées en boucle jusqu'à ce que les conditions situées 
après WHILE soient vraies (=1). 

Remarque: WHILE teste la condition au début, la boucle n'est donc pas 
exécutée si les conditions sont fausses avant rencontre de l'instruction. 


Exemple : 

Programme WHILE/WEND 

10 1 = 1 
20 REPEAT 
30 PRINT "A"5 
40 1=1+1 
50 UNIIL 1=800 


Équivalent FO R/N EXT 

10 FOR 1=1 TO 800 
20 PRINT "A"; 

30 NEXT I 


Comme pour REPEAT/UNTIL, une série de conditions peuvent être asso¬ 
ciée au comptage : 
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50 REM YOYO 
100 CLS 

1:10 C=6 0, Z = 1 , K=0 

120 WHILE l« > 13 

130 K=KEYN 

140 IF K=32 THEN 7 = 2 * <- 1 ) 

145 PRINT© C, 120; " 

150 C=C+(Z*3) 

160 IF C=123 AND 2=1 IHEN C=3 
170 IF C=3 AND Z=—1 THEN 0123 
180 PRINUS C, 120; 

190 WEND 

200 PRI Nie 3,200;"TERM1 NE" 


Explications : 

Ce programme amusant déplace un caractère à l'écran, affiché aux coor¬ 
données C, 120. Une pression sur la touche espace change le sens de 
déplacement en modifiant le signe de l'incrément Z (— 1 ou 1). 

Une pression sur la touche RETURN interrompt l'exécution da la boucle. 


1.4.4. La gestion des périphériques imprimante et cassette 

APPEND 

Syntaxe: APPEND "<Nom du programme>” 

Application : APPEND permet de charger en mémoire un programme à 
partir du K7 sans détruire celui qui s'y trouve déjà. Les deux programmes 
sont automatiquement chaînés l’un à la suite de l'autre. 

Remarques: 

— Il est préférable que les numéros de ligne du programme à charger 
soient supérieurs à ceux du programme résident. Dans le cas contraire 
les deux programmes se suivront, mais avec des numéros de ligne 
identiques et pourront s'exécuter sans provoquer d'erreur ! On peut très 
bien résoudre ce type de problème en exécutant RENUM une fois 
l'APPEND terminé. Cette méthode permet le chaînage de tout 
programme, quelle que soit sa numérotation. 

— APPEND est fréquemment employé pour exploiter une bibliothèque de 
sous-programmes et de procédures, dont la nature les rend de toutes 
façon indépendants des numéros de ligne. 
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EXT SPRINT/PPRINT 


Syntaxe: EXT SPRINT 
EXT PPRINT 

Application : Initialise le Basic, pour l'emploi d'une imprimante série ou 
parallèle. Suivant le type d'interface connecté, SPRINT (Interface série) ou 
PPRINT (Interface parallèle) est employé. Aucune instruction concernant 
l'imprimante n'est valide si l'une de ces deux routines n'a été précédem¬ 
ment exécutée. 

Remarques: 

— A la différence des versions 96 K et 128 K, le Lynx 48 K ne possède 
pas en ROM les instructions nécessaires au pilotage des imprimantes. 
Le chargement d'un programme sur K7 est indispensable avant toute 
initialisation. Deux programmes sont prévus, "SPRINT.48K” et 
"PPRINT.48 K" suivant que l'on utilise un interface série ou parallèle. 

— Dans le cas d'un interface série, le Lynx est configuré pour l'imprimante 
Seikosha GP-250X. La connexion d'un autre modèle posant des 
problèmes de branchement et d'interface, il est plus simple de se 
connecter sur l'interface parallèle malheureusement fourni en option 
mais totalement polyvalent. 


LINK ON/OFF 

Syntaxe: LINK ON 
LINK OFF 

Application: LINK ON met en parallèle écran et imprimante, toute donnée 

affichée à l'écran sera immédiatement dupliquée sur l'imprimante ligne par 

ligne. LINK OFF annule ce mode. 

Remarques: 

— LINK ON ne fonctionne que pour du texte, les graphiques ne sont pas 
reproduits et les caractères spéciaux sont remplacés par leur code 
équivalent ASCII. 

— Dans la mesure où le Lynx est configuré par la Seikosha GP250, LINK 
ON ne fonctionne parfaitement qu’avec cette imprimante. Avec une 
EPSON MX-80 par exemple, l'écran est copié en caractères compres¬ 
sés assez peu lisibles. 
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— Pour éviter la copie du curseur texte sur l'imprimante, il est plus effi¬ 
cace d'employer LINK ON à l'intérieur d'un programme plutôt qu'en 
mode direct. 


LU ST 

Syntaxe : LLIST [<N° ligne début>[,<N° ligne fin>]] 

Application : Identique à LIST, cette instruction liste sur l'imprimante le 
programme présent en mémoire entre les deux limites spécifiées. 

Remarque: L'omission de <N° ligne fin> permet le listage d'une seule 
ligne. 


LOAD 

Syntaxe : LOAD "<Nom du programme>" 

Application : Charge en mémoire à partir du K7 le programme nommé. Si le 

programme lu sur le K7 ne correspond pas au nom demandé, le Lynx 

affiche ce dernier sans effectuer de chargement. Une fois LOAD exécuté, le 

curseur réapparaît. 

Remarques : 

— LOAD efface de la mémoire programmes et variables. 

— La syntaxe LOAD " " permet de visualiser les noms de tous les 
programmes présents sur une cassette, en faisant défiler celle-ci depuis 
le début. 

— Si la sauvegarde du programme a été effectuée en incluant un numéro 
de ligne (voir SAVE), il s'exécutera à partir de ce numéro une fois le 
chargement terminé. 

— Dans le cas où la fiche "Remote" du cordon de liaison K7 est 
branchée, LOAD démarre et arrête automatiquement le défilement. 
Toutefois, cette fiche ne fonctionne pas avec tous les magnétophones 
du commerce. 


LPRINT 

Syntaxe: LPRINT [<liste de données>] 

Application : Cette instruction est totalement équivalente à PRINT pour 
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l'imprimante. Les séparateurs ou fonctionnent de manière iden¬ 
tique (voir § 1.4.2). 

Remarques: 

— LPRINT sans données provoque un passage à la ligne. 

— TAB et @ ne sont pas valides avec LPRINT. 


MLOAD 

Syntaxe: MLOAD "<Nom du programme>" 

Application : D'emploi similaire à LOAD, MLOAD charge une zone mémoire 
ou un programme en langage-machine à partir du K7. Programme et 
variables ne sont pas affectés par MLOAD. 

REMARQUE: Le chargement s'effectue dans la même zone-mémoire que 
celle spécifiée lors de la sauvegarde. Celle-ci s'effectue à l'aide de la 
commande D du moniteur, et ne peut donc se faire à partir du Basic. (Voir 
§ 2.5.) 

SAVE 

Syntaxe : SAVE "<Nom du programme>''[,<N° de ligne>| 

Application : Sauvegarde le programme nommé sur K7. Si la fiche 
"Remote" est connectée, SAVE démarre et arrête le magnétophone. 

Remarques : 

— <Nom du programme> peut avoir une longueur maximum de 
80 caractères. 

— Si l'option <N° de ligne> est utilisée, le programme s'exécutera auto¬ 
matiquement à partir de la ligne spécifiée après son chargement par 
LOAD. 

TAPE 

Syntaxe : TAPE N 

Application : Règle la vitesse de sauvegarde et de chargement des 
programmes par SAVE et LOAD. N est un entier compris entre 0 et 5, et 
correspond aux six vitesses disponibles (un baud=un bit/seconde) : 
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Valeur de N 

Vitesse en Baud 

0 

600 

1 

900 

2 

1200 

3 

1500 

4 

1800 

5 

2100 


Remarques: 

— TAPE 0 est la valeur par défaut à la mise sous tension ; cette vitesse de 
transfert assez faible assure une grande fiabilité. TAPE 2 se révèle être 
un bon compromis pour les applications courantes. 

— Un programme doit être impérativement rechargé à la même vitesse 
que lors de sa sauvegarde. 


VERIFY 

Syntaxe : VERIFY "<Nom du programme>" 

Application : Cette commande très utile autorise la vérification du bon enre¬ 
gistrement d'un programme sur K7 après exécution de SAVE. Si une erreur 
est décelée, le Lynx affiche " BAD TAPE" à l’écran au lieu de l'habituel 
curseur. 


7.5. Les fonctions du Basic 


A la différence d'une instruction, une fonction s'utilise toujours en conjonc¬ 
tion avec une autre commande du Basic, en général PRINT ou LET. Par 
exemple: LET A=VAL (A$). 

Les syntaxes données pour les fonctions suivantes doivent en conséquence 
être considérées comme incomplètes par le lecteur. 

Comme pour les Instructions, les Fonctions sont regroupées selon quatre 
catégories : 
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1 . 5.1 


1 . 5.2 


1 . 5.3 


1 . 5.4 


Usage généraI 


Traitement nombres 


Traitement chaînes 


Saisies 


FALSE 

POS 

RAND 

RND 

TAB 

TRUE 

VPOS 


ABS 

ANTILOG 

ARCCOS 

ARCSIN 

ARCTAN 

Conversions 

COS 

DEG 

DIV 

EXP 

FACT 

FRAC 

INF 

INT 

LOG 

LN 

MOD 

PI 

RAD 

ROUND 

SIN 

SGN 

SQR 

TAN 

TRAIL 


ASC 

CHRS 

LEFTS 

LEN 

MIDS 

RIGHTS 

STR$ 

UPC$ 

VAL 


GETN 
G ETS 
KEYN 
KEYS 


1.5.1. Les fonctions d'usage général 

FALS E/TRUE 

Syntaxe: FALSE 
TRUE 

Application : Ce sont deux variables réservées du Basic, au même titre que 
PI. FALSE (Faux) vaut 0 et TRUE (Vrai) vaut 1. On les utilise dans les 
comparaisons avec IF, pour améliorer la lisibilité des programmes entre 
autres. 
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Exemple : 

IF (A>2 AND B>10)=TRUE THEN....<lnstruction> 

Si les conditions placées entre parenthèses sont vraies, l'expression 
complète prend la valeur 1, et est donc égale à TRUE. 


POS 

Syntaxe : POS 

Application : Retourne la position horizontale du curseur, donc une valeur 
allant de 0 à 1 26. Les positions d’écriture standard vont de 3 à 123 par pas 
de 3 (voir PR INT @ , § 1.4.2.). 

Remarque: Cette fonction est inutilisable en mode direct, car après un 
RETURN, le curseur retourne à la première colonne de la ligne suivante, et 
POS renvoie toujours 3. 


RAND 

Syntaxe: RAND (N) 

Application : Renvoie un nombre entier pseudo-aléatoire, compris entre 0 
et N—1. N doit être un entier compris entre 0 et 65535. 

Remarques: 

— RAND (N)+1 permet l'obtention d'un entier compris entre 1 et N. 

— Voir également l'instruction RANDOM, § 1.4.2. 

Exemple : 

100 REM JEU DE DES 
110 CLS 

120 PR INT® 3, 1205"POUR JOUER TAPEZ UNE TOUCHE"? 

1 Z.0 X~GE f N 

14 O I R1N I @ 8 7, 12 O ï R A N D ( 6 > +1 
1.50 GU I O 1 20 


RND 

Syntaxe : RND 

Application : Renvoie un nombre réel pseudo-aléatoire compris entre 0 et 
1, 1 étant exclus. 
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TAB 

Syntaxe : PRINT TAB N;[<liste de données>] 

Application-. TAB autorise le positionnement horizontal du curseur sur 
n'importe laquelle des 40 positions standard d'écriture, sans passer par 
PRINT®. N est un entier positif représentant le numéro de colonne. Si 
N>39, le curseur saute N DIV 40 lignes et se place à la colonne calculée 
par N MOD 40. 

REMARQUES: 

— Le est obligatoire après TAB. 

— TAB peut être inclus à n'importe quel endroit d'une instruction PRINT. 

Exemple : 

PRINT "CHAINE'';TAB 15;"DE CARACTERES" 

VPOS 

Syntaxe: VPOS 

Application : Retourne la position verticale du curseur, donc une valeur 
allant de 0 à 248. Les positions d'écriture standard vont de 5 à 245 par pas 
de 10 (voir PRINT@, § 1.4.2). 

Remarque: VPOS associé à POS autorise la lecture de la position du 
curseur à l'écran dans ses deux axes en mode texte. 


1.5.2. Le traitement numérique 

ABS 

Syntaxe : ABS(A) 

Application : Renvoie la valeur absolue de A. 

Exemple : 

ABS(10) renvoie 10, ABS(—10) renvoie 10 également. 
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ANTILOG 

Syntaxe: ANTILOG(A) 

Application : Calcule l'inverse du logarithme décimal de A, c'est-à-dire 
l'exponentielle en base 10 de A (10#*A). 


ARCOS 

Syntaxe: ARCCOS(A) 

Application : ARCOS calcule l'angle en radians, dont A est le Cosinus. 


ARCSIN 

Syntaxe: ARCSIN(A) 

Application: ARCSIN calcule l'angle en radians, dont A est le Sinus. 


ARCTAN 

Syntaxe: ARCTAN(A) 

Application: ARCTAN calcule l'angle en radians, dont A est la tangente. 

Remarque: Les trois fonctions précédentes sont les fonctions inverses de 
COS, SIN et TAN respectivement. 


Conversions numériques 

Syntaxes : #D 

8.H 

BIN(B) 

Applications : 

— # convertit le nombre décimal D en son équivalent hexadécimal. D doit 
être un entier positif inférieur à 65536. 

— & convertit le nombre hexadécimal H en son équivalent décimal. 

— BIN convertit le nombre binaire B en son équivalent décimal. Un 
nombre binaire comprend huit chiffres au maximum et est de la forme : 
10101001 . 
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REMARQUE: On peut utiliser directement des nombres hexadécimaux ou 
binaires dans un programme ou une expression numérique en les faisant 
précéder du préfixe de conversion: Le Basic les considère dans ce cas 
comme leurs équivalents décimaux. 


Exemple : 

10 D=&FF,B=BIN(11111111) 
20 PRINT D,B,#D 
30 END 


COS 

Syntaxe: COS(A) 

Application : Renvoie le cosinus de l'angle A, qui doit être exprimé en 
Radians. 


DEG 

Syntaxe : DEG(<angle>) 

Application : Convertit en degrés la valeur d'un angle exprimé en Radians. 

Exemple : 

PRINT DEG(ARCSIN(1)) 


DIV 

Syntaxe : A DIV B 

Application : DIV est en fait un opérateur arithmétique qui renvoie le résul¬ 
tat de la division entière de A par B, c'est-à-dire INT(A/B). 

REMARQUE: On utilise beaucoup DIV dans les calculs d'adresses sur deux 
octets: Cette fonction permet de connaître directement l'octet de poids fort 
correspondant à l'adresse N dans N DIV 256 (voir également MOD et 
§ 2 . 2 ). 

EXP 

Syntaxe : EXP(A) 
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Application : Calcule l'exponentielle de A en base e, c'est-à-dire e à la puis¬ 
sance A (e**A). 

REMARQUE: EXP est la fonction inverse de LN. 


FACT 

Syntaxe : FACT(A) 

Application : Retourne la factorielle de A, soit en notation standard A! 

Remarque: Si A n'est pas un entier, FACT travaille sur la partie entière 
uniquement. 


FRAC 

Syntaxe : FRAC(A) 

Application : Cette fonction originale extrait la partie fractionnelle d'un 
nombre. Si A est un entier, FRAC(A) vaut 0. 


INF 

Syntaxe : INF 

Application : INF est une constante, égale à 9.99 E+63. C'est le nombre le 
plus grand que peut traiter le Lynx. 

Remarque: INF ne sert pratiquement à rien ! 


INT 

Syntaxe : INT(A) 

Application : INT retourne la partie entière de A. L'arrondi n'est pas exact, 
dans la mesure où l'entier inférieur est toujours renvoyé (voir § 1.7.2). Si A 
est une fraction inférieure à 1, INT(A) vaut 0. 


LOG 

Syntaxe: LOG(A) 

Application : Calcule le logarithme en base 10 du nombre A. 
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LIM 

Syntaxe'. LN(A) 

Application'. Calcule le logarithme Népérien du nombre A. 


MOD 

Syntaxe : A MOD B 

Application : MOD est comme DIV un opérateur arithmétique, il renvoie le 
reste de la division entière de A par B, c'est-à-dire: A—((A DIV B)*B). 

Remarque: MOD sert également dans les calculs d'adresses sur deux 
octets, le résultat de N MOD 256 correspond à l’octet de poids faible de 
l'adresse N (voir DIV et § 2.2). 


PI 

Syntaxe : PI 

Application : La constante PI est stockée en ROM sur sept décimales. 


RAD 

Syntaxe : RAD(<angle>) 

Application : Convertit en Radians la valeur d'un angle exprimé en degrés. 
Exemple : 

PRINT SIN(RAD(9£f)) 

ROUND ON/OFF 

Syntaxe: ROUND ON 
ROUND OFF 

Application : Le Lynx effectue les calculs sur sept décimales, et affiche les 
résultats en les arrondissant sur cinq décimales. C’est le mode ROUND ON. 
En spécifiant ROUND OFF, on obtient l'affichage des résultats en 7 
décimales. 
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SIN 

Syntaxe: SIN(A) 

Application : Calcule le sinus de l'angle A, celui-ci étant exprimé en 
Radians. 


SGN 

Syntaxe : SG N (A) 

Application : Retourne un nombre en fonction du signe de A: 

— Si A<0, SGN(A) est égal à -1. 

— Si A>0, SGN(A) vaut 1. 

— Si A=0, SGN(A)—0. 


SQR 

Syntaxe: SQR(N) 

Application: SQR calcule la racine carrée de N. 
REMARQUE: Cette fonction est l'inverse de N*#2. 


TAN 

Syntaxe: TA N (A) 

Application : Calcule la tangente de l'angle A, celui-ci étant exprimé en 
Radians. 


TRAIL ON/OFF 

Syntaxe: TRAIL ON 
TRAIL OFF 

Application : TRAIL ON ajoute des "0" à la droite d'un nombre affiché, 
dans le format imposé par ROUND (5 ou 7 décimales). TRAIL OFF annue 
ce mode. 
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1.5.3. Le traitement des chaînes de caractères 


ASC 

Syntaxe : ASC(A$) 

Application : ASC renvoie le code ASCII du premier caractère de la chaîne 
A$. Si A$ est une chaîne vide, ASC(A$) est égal à 1 3 ce qui correspond au 
code "Retour chariot" (touche RETURN). Si A$ n'a pas été préalablement 
définie, une erreur est provoquée. 

REMARQUE: ASC est la fonction inverse de CHR$. 


CH RS 

Syntaxe : CHR$(A) 

Application-. CHR$ renvoie le caractère de code ASCII A. L'argument peut 
être un entier ou une expression numérique contenant des variables préala¬ 
blement définies. 

Remarques: 

— S'emploie aussi bien pour afficher des caractères que pour envoyer des 
codes spéciaux à l'écran ou à l'imprimante (voir § 3.1.3). 

— Les caractères du jeu ASCII standard ont des codes compris entre 32 
et 127. Les mosaïques graphiques ont des codes compris entre 224 et 
249 (voir § 3.2). 


LEFTS 

Syntaxe : LEFT$(A$, N) 

Application : LEFTS extrait une sous-chaîne de AS constituée des N pre¬ 
miers caractères à gauche de AS. N doit être un entier positif ou une 
expression numérique équivalente. 

Remarques: 

— Si N=0 ou si A$=" " ou si N est égal à la longueur totale de AS plus 1, 
LEFTS renvoie une chaîne vide. 

— Si N est supérieur à la longueur de AS plus 1, une erreur est provoquée. 
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Exemple : 


10 INFUT "DONNEZ VOTRE NOM "; A* 
20 FOR 1=1 TO LEN(AT) 

30 PEINT LEFTT(AT,I) 

40 NI... X ! I 


LEN 

Syntaxe : LEN(A$) 

Application : Calcule la longueur de la chaîne A$, en nombre de caractères. 
Si A$=" ", alors LEN(A$)=0. 

REMARQUE: A$ doit être une chaîne préalablement définie. 

Exemple : 

10 IMPOT "DONNEZ UN MOT DE CINQ LET TRES "5 A* 

20 IF LENCA*)=5 THEN GOTO 50 

30 PRINI "ERREUR, CINQ LETTRES SVP" 

40 GOTO 10 
50 PR1 NT AT 
60 GOTO 10 


MID$ 

Syntaxe : MID$(A$, N, M) 

Application : MID$ est la plus puissante des fonctions de traitement des 
chaînes du Lynx. Elle autorise l'extraction de n’importe quelle partie d'une 
chaîne de caractères: La chaîne retournée contiendra M caractères de A$, 
en commençant par le N e . 

Remarques: 

— Si N est supérieur à la longueur de A$ ou inférieur à 1, MID$ renvoie 
une chaîne vide. 

— Si M est supérieur au nombre de caractères compris entre le N e et la fin 
de A$, MID$ renvoie la totalité de ceux-ci. 

Exemples : 

10 AT -"12 5456 739" 

20 PRINT MI DT(AT,2,5) 
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Nous imprimera: 23456 

Voici, pour démontrer les possibilités de MID$, un petit programme qui 
utilise cette fonction de manière amusante. 

Exemples : 

100 REM DEFILEMENT TEXTE 
110 CLS 

120 DIM A$(120) 

130 A$="ECRAN UTILISANT LES POSSIBILITES DE MIDt CECI EST UN 
DEFILEMENT DE TEXTE A L’ECRAN UTILISANT LES POSSIBILITES DE 
MI D$ " 

140 P=41 

150 PEINTS 3,120; 

160 PRINT MID$(A*,P,40); 

170 F-F'+l 

180 IF F'=LEN < A$ ) —41 THEN LET P=1 
190 GOTO 150 

Explications : 

Le principe du programme est assez simple: On crée une longue chaîne, 
puis on en extrait une sous-chaîne qui est affichée toujours au même 
endroit de l'écran. En décalant la sous-chaîne d'un cran vers la droite à 
chaque impression, on obtient un effet de défilement. 

120: Dimensionne la chaîne A$. 

130: Création d'une chaîne A$ contenant le texte à imprimer. 

150: Positionnement du curseur au centre de l'écran. 

160: Impression de 40 caractères de A$, à partir du P e . 

170: Incrément de P. 

180: Lorsque toute la chaîne a été lue, on réinitialise P à 1. 

En modifiant A$ et la ligne 1 50, ce programme pourra être employé par le 
lecteur dans d'autres applications. 


RIGHTS 

Syntaxe : RIGHT$(A$, N) 

Application : RIGHT$ extrait une sous-chaîne de A$ constituée des N 
derniers caractères à droite de A$. N doit être un entier positif ou une 
expression numérique équivalente. 
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Remarques : 


— Si N=0 ou si A$=" " ou si N est égal à la longueur totale de A$ plus 1, 
RIGHTS renvoie une chaîne vide. 

— Si N est supérieur à la longueur de A$ plus 1, une erreur est provoquée. 


STR$ 

Syntaxe : STR$(N) 

Application : Convertit une constante ou expression numérique en chaîne 
de caractères. 

REMARQUES: 

— STR$ est la fonction inverse de VAL. 

— Cette fonction s'utilise pour effectuer sur des nombres des traitements 
réservés aux chaînes. VAL permet la conversion inverse. 

Exemples : 

10 A=8.5S4,B=3.999 
20 A$=STR$(A)„B*=STRt(B) 

30 A*=LEFT * <A*, 3) ,B*=LEFT*(B$,3) 

40 A--VAL. ( A$ ) , B= VAL ( B* ) 

50 PR INT"A ET B SUR UNE SEULE DECIMALE ";A,B 

Explication : 

20 : A et B sont convertis en A$ et B$. 

30: Prise en compte des trois premiers caractères de A$ et B$. 

40: On reconvertit A$ et B$ en variables numériques. 

UPC$ 

Syntaxe : UPC$(A$) 

Application : Cette fonction, spécifique au Basic Lynx, convertit tous les 
caractères minuscules de A$ en majuscules. Les nombres et symboles 
restent inchangés. 

REMARQUE: UPC$ est très pratique pour la saisie de données dans les 
fichiers de noms et d'adresses, la conversion en majuscules permettant la 
standardisation des entrées. 
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Exemples : 

100 REM CONVERSION EN MAJUSCULES 
110 CLS 

120 PRINT"ENTREZ DU TEXTE, MAJ. OU MIN. 
130 PRINT 

140 PRINT"POUR ARRETER, TAPER <DELETE>" 
150 PR I NT 

160 WH I LE ASC(G*)< >8 
170 G*~GET* 

180 PR INT UPC* < (3* >5 

190 WEND 

200 PRINT 

210 PRINT"TERMINE" 


VAL 

Syntaxe: VAL(A$) 

Application : Retourne l'équivalent numérique d'une chaîne de caractères: 

— Si AS contient un nombre, VAL renvoie ce nombre. 

— Si AS contient une expression numérique ou une chaîne, VAL ne peut 
effectuer le calcul et renvoie 0. 

— Si AS est composé de nombres et de caractères, VAL ne renverra le 
nombre que s'il est placé au début de A$. 

REMARQUE: VAL peut fonctionner pour des nombres hexadécimaux précé¬ 
dés de " & 


Exemples : 

VAL ( 11 5 Francs" ) =5 
VAL("X”3*4")=0 
VAL("BONJOUR")=0 
VAL("6/12")=6 


1.5.4. La saisie clavier 

Les Fonctions de saisie clavier sont les seules commandes du Basic autori¬ 
sant une intéraction directe entre l'utilisateur et l'ordinateur par l'intermé¬ 
diaire du clavier. Ce chapitre n’aborde que la saisie en Basic, une méthode 
utilisant le langage-machine est proposée au paragraphe 4.1.5. 
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GETN/GETS 

Syntaxe 1 : X=GETN 

Application : Interrompt le déroulement du programme et attend l'appui 
d'une touche au clavier. Dès que cela est fait, le code de la touche pressée 
est stocké dans la variable X. 

Syntaxe 2: X$=GET$ 

Application : Identique à GETN, mais stocke dans X$ le caractère de la 
touche pressée au lieu de son code. 


KEYIM/KEYS 

Syntaxe J : K=KEYN 

Application : KEYN lit le clavier sans interrompre l'exécution du 
programme. Si une touche est pressée lorsque l'instruction est rencontrée, 
son code est stocké dans la variable K. Si aucune touche n'est actionnée, K 
vaut 0. 

Syntaxe 2: K$=KEY$ 

Application : KEY$ est identique à KEYN, mais stocke le caractère de la 
touche pressée dans X$, qui sera une chaîne vide si aucune touche n'est 
utilisée. 

Remarques: 

— KEYN et KEY$ sont les fonctions de saisie privilégiées pour les jeux en 
temps réel: Par exemple, la détection d'une action sur les flèches du 
clavier pour déplacer un mobile à l'écran. 

— Ces fonctions ne prennent pas en compte l'autorépétition des touches 
du clavier. En conséquence, le fait de laisser le doigt appuyé sur une 
touche lors d'une saisie par KEYN ou KEY$ n'est pas interprété correc¬ 
tement dans un programme: Il faut relâcher le doigt et réappuyer!! 


Le programme suivant ne peut donc fonctionner dans un jeu en temps réel : 


10 K=KEYN 

20 IF K==0 THEN GOTO 10 
30 REM INSERER PROGRAMME 


200 GOTO 10 
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On dispose de deux moyens pour tourner cette difficulté: 

— Le premier consiste à démarrer un faux "repeat" par programme 
lorsque la touche est appuyée. Une deuxième pression sur celle-ci 
annule ce mode. C'est cette méthode qui est employée dans le pro¬ 
gramme "TENNIS", cité en exemple plus loin. 

100 REM FAUX REPEAT 
105 K—0* 1*1=0 
110 K=KEYN 

120 IF K=M T HEM LET M=0,K=O 
130 IF MOT K-0 THEN LET M=K 
140 if |<=0 THEN LET K=M 
150 REM INSERER PROGRAMME 


1000 GOTO 110 

Explication : 

105 : Initialisation de K et M. K correspond au code de la touche pressée, 
et M mémorise le code précédent. 

110 : Lecture du clavier. 

120 : Si le code de la touche pressée correspond au code mémorisé dans 
M, il s'agit d'une deuxième pression sur la même touche et le 
"repeat" est annulé en initialisant K et M à 0. 

130 : Si une touche est pressée, on mémorise son code en M. 

140 : Si aucune touche n'est pressée, on simule une pression sur la 
touche dont le code est mémorisé dans M, en chargeant M dans K. 

150 : Ici, il faut insérer le programme proprement dit. La valeur de K 
correspond au code de la touche actionnée, ou à 0. 

1000: Retour à la saisie. 

— Un deuxième moyen est possible, par l'intermédiaire du langage- 
machine. La lecture de certains ports du Z80 autorise une saisie clavier 
fugitive, avec prise en compte de l'autorépétition des touches. La 
procédure est détaillée au paragraphe 4.1.5. 
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Exemple : Le programme TENNIS: 


100 REM TENNIS 
110 REM 

120 REM TERRAIN DE JEU 
150 TEXT 

160 WINDDW 3,123,205,245 
180 FOR 1=3 TO 117 STEP 3 
100 PRIN T 0 J , 5 5 LHRT(236) 5 
200 PRINT© I, 195; CHEt(227) ; 

210 NEXT I 

220 FOR 1=15 TO 185 STEP 10 
230 PR I NT® 120, I ; CHRt ( 229 ) ; 

240 NEXT I 

250 PRINT© 120,5; CHRt(228); 

260 PRI NT® 120,1955 CMR*(225); 

270 X=3,Y =105 

280 PRI N T@ X.Y ;CHRt<239); 

290 GOSUB 570 

300 PR I NT© k , y 5 CH Fit < 240 ) j 

310 REM BOUCLE DE JEU 

320 M=0,K=0 

330 K=KEYN 

340 IF K=M THEN LET M=0,K=0 
350 IF NO T 1= 0 THEN LET M=K 
360 EL..SE LE f K=M 

370 IF K= 10 OR K= 1 1 THEN PR INT© X , Y ; CHR't (224) ; 

380 IF K=11 AND NOT Y=15 THEN LET Y=Y-10 
390 IF K=10 AND NOT Y*185 THEN LET Y=Y+10 
400 PRINT© X,Y;CHRt(239>; 

410 IF y=15 THEN LET G=1 

420 IF y=185 THEN LET G=-l 

430 IF ;•: = 1 17 AND F=1 THEN LET F=-l 

460 IF =6 AND y=Y THEN LET F=1,G=0 

470 IF x=6 AND y=Y+10 THEN LET F=1,G=1 

480 IF x=6 AND y=Y-10 THEN LET F=1,G=-1 

490 PR I NT® x , y ; CHRt (224) 5 

500 x=x +(F*3) 

510 y=y>(G*10) 

520 IF x=117 OR y=15 OR y=185 THEN GOSUB 620 
530 PRI NT© x,y;CHRt(240); 

540 1F x =3 THEN GOTO 640 

550 IF x =6 AND y=Y OR x=6 AND y=Y+10 OR x=6 AND y=Y~10 THEN GOSUB 6 

560 GOTO 330 

570 REM SERVICE 

580 IF RND>=0.5 THEN LET G=1 

590 ELSE LET G=-1 

600 LET x=3,y=(10*RAND(18)> +5,F=1 

610 RETURN 

620 BEEP 3000,1,63 

630 RETURN 

640 REM FIN DE JEU 
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650 FOR 1=50© TO 5© STEP -1© 

66© BEER 1,2,63 

67© NE X T I 

68© PRINT© 3,2©5; "VOUS AVEZ PERDU, POUR REJOUER TAPEZ < R > " 

69© R*=GET* 

7©© IF R*="R" THEN GOTO 1©© 

71© GOTO 69© 

Explication : 

120,280: Dessin de l'aire de jeu à l'aide de caractères semi-graphiques; 
affichage de la raquette aux coordonnées X et Y. 

290,300: Appel du sous-programme "SERVICE", et affichage de la balle 
(coordonnées x,y). 

310 : Boucle principale incluant: 

320,360: Le programme de saisie clavier présenté avec KEYN. 

370,400: La valeur de K (code de la touche pressée) est utilisée pour 
déplacer la raquette si t ou I est actionnée. 

410,480: Si la balle atteint l’un des bords du terrain de jeux, sa direction 
est modifiée et mémorisée dans F et G. 

490 : Effacement de la balle. 

500,510 : Calculs des nouvelles coordonnées de la balle en fonction de la 
direction définie par F et G. 

520 : Appel du sous-programme "SON" si le bord de l'écran est 

atteint par la balle. 

530 : Réaffichage de la balle. 

540 : Fin du jeu si la balle est perdue (lorsqu'elle dépasse la raquette). 

550 : Génération d'un son lorsque la balle touche la raquette. 

560 : Retour à la saisie clavier. 

570,61 0 : Sous-programme service, envoie la balle à partir d'une position 
aléatoire et lui donne une direction, définie par F et G, égale¬ 
ment aléatoire. 

640,720: Sortie du jeu. 
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1.6. Instructions et fonctions non résidentes 


Malgré la richesse de son "vocabulaire", le Lynx n'est cependant pas par¬ 
fait et certaines commandes disponibles sur les Basic les plus évolués lui 
font défaut. Nous avons essayé de sélectionner celles d'entre elles qui nous 
paraissaient les plus importantes, et dont la simulation par un petit pro¬ 
gramme reste dans les limites de complexité raisonnables. 

D'autres possibilités, utilisant le Moniteur et le langage-machine, seront 
vues dans les sections suivantes. 


1.6.1. Instructions absentes du Basic Lynx 

CLEAR 

Application '. Efface toutes les variables et tableaux de la mémoire sans 
effacer le programme. 

Equivalent Lynx : Seul RUN permet l'effacement des variables. Le plus 
simple est d'inclure dans un programme, à l'endroit où l'on a besoin d'un 
CLEAR, l'instruction GOTO LABEL CLEAR puis: 

65500 LABEL CLEAR 

65501 RUN N 

Avec N=Numéro de la ligne suivant l'instruction GOTO LABEL. 


MID$(A$, IM |,M|) BS 

Application : Cette instruction, inverse de la fonction du même nom, permet 
de remplacer M caractères dans AS, à partir du N e , par les M premiers 
caractères de B$. Si M est omis, B$ est inséré en entier. Si B$ contient plus 
de caractères que AS ne peut en recevoir, les caractères excédentaires sont 
ignorés. 

Equivalent Lynx: Le Lynx possède bien la fonction MID$, permettant de lire 
une fraction d'une chaîne, mais pas l'instruction effectuant le remplace¬ 
ment d'une partie d'un chaîne par une autre. L'expression suivante la 
remplace : 

A$ =LEFT$(A$,N 1) + LEFT$(B$,M) + RIGHT$(A$,LEN(A$)-(N + M-1)) 
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PRIIMT USING "<chaîne>" ;<liste de données> 

Application : Affiche des nombres selon un format défini par <chaîne>. 
Dans le cas de tableaux numériques, et surtout lorsque ceux-ci comportent 
des décimales, un affichage selon un format identique (alignement sur le 
point décimal, cadrage à droite) améliore grandement la lisibilité et la 
présentation. 

Equivalent Lynx : Les vrais PRINT USING autorisent une grande liberté 
dans le choix des formats d'impression. Néanmoins, le programme qui suit 
effectue toutes les opérations d'arrondi exact et de formattage d'un 
nombre: Celui-ci sera justifié à droite, avec un espace accolé à la dernière 
décimale s'il est positif, et le signe " —" s'il est négatif, selon la norme de 
cette instruction. Si le nombre est trop grand pour le format il sera 
remplacé par des 

Remarques: 

— On appelle le programme par GOSUB LABEL PRINTUS. 

— Les variables que vous devez passer au sous-programme dont N, le 
nombre à traiter et P$ qui détermine le format. P$ est une chaîne de 
caractères de la forme: P$=”***.**#". Le nombre d'astérisques 
employé avant et après le point décimal détermine le nombre de 
chiffres avant et après la virgule. 

— Une fois le programme exécuté, N$ contient le nombre formatté à 
imprimer sous la forme d’une chaîne de caractères. 


6 0 O O 0 I... A B E: I... P R IN T U G 

600 3 .0 D ::: -0, Z ;::;: 0 M 11 OOOOOOOOOO" " M , sr> "**•*♦* * 

00020 FOR P=1 TO LE.'N (PT) 

60030 IF MI DT ( PT, P, 1 ) = " „ " I HP N I. PI ; P 
60040 NEX T P 

6O050 IF ZOO THEN I E T P=Z, D=LEN (PT > -P 
60060 E--P t 

60070 N= I NT ( < N* 1 ô**D ) + U. 5 > / 1.0* *D, NT ^ G I R T < N i 

60080 IF SC3N ( N ) — 1 THEN LE T NT .Il* 

60090 MT=L. EF T T 'NT,, 1 ) , NT=EIGHTT (NT, LEN (NT) 1 t 
60100 2=0 

6 01 10 FO R P = .1. T 0 L E N ( N T ) 

6 012 O I F MID T ( N T, P, 1 > = " „ " THE N LET Z -"P 
6Ô130 NEXT P 

60140 IF / 0 THEN LET P=Z 

60150 ET=L.EFTT(NT,P-1) 

60160 IF P >LEN (NT > THEN LET DT==" ,! 

60170 ELSE LET DT=RIGHTT<NT,LEN(NT) P) 

6 018 O L=L E N C D T > 
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60190 il L<D MU H LL I DF=DF+LEFTF(Z F,D-L) 

60200 L=LEN(EFj 

6021.0 IF L<E THEN I I I EF==LEFTF (CF, E—L) +EF 
60220 IF (DF="")=0 THEN GOTO 60250 
6 O 2 3 O N Të. 'T N T 
60240 GOTO 60260 
60250 N $=EF + " . " + D I. + M F 

60260 IF LEN<NF);Ë+D+2 THEN LE T NF=LEF TF < SF, E+D+l ) 
60270 RETURN 


Explicatons : 


60010 : Initialisation des variables. 

60020,60040: Lecture du format P$, et mémorisation de la position du 
point décimal dans Z. 


60050,60060 : Calcul de la longueur de la partie entière (E) et de la partie 
décimale (D). 


60070 

60080,60090 
601 10,60150 
60160,60170 
60180,60190 


N est arrondi au format désiré et stocké dans N$. 

Mémorisation du signe de N dans M$. 

Stockage dans E$ de la partie entière de N$. 

Stockage dans D$ de la partie décimale de N$. 

Ajoute des ''0'' à droite de la partie décimale, pour la faire 
correspondre au format. 


60200,60210: De même, on ajoute des espaces à gauche de la partie 
entière. 


60220,60250: Reconstitution de N$, avec ajout du signe " — " le cas 
échéant. 

60260 : En cas de dépassement de format, on remplace le contenu 

de N$ par des astérisques. 


Remarque: Le programme est rallongé par l'impossibilité de grouper 
plusieurs instructions sur une même ligne, ainsi que par celle de sortir des 
boucles FOR/N EXT à l'aide de GOTO. 
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1.6.2. Fonctions non résidentes 


Arrondi exact 

Nous savons que l'arrondi obtenu par la fonction INT n'est pas exact, puis¬ 
qu'elle retourne toujours l'entier inférieur. Voici la formule permettant 
d'obtenir l'arrondi pour X, D étant le nombre de décimales souhaité: 

INT((X*10**D)+0.5)/10**D 

Si on veut convertir un nombre à l'entier le plus proche, l'expression se 
réduit à : 

INT(X + 0.5) 

INPUT$(N) 

Application '. Équivalent de l’instruction GET$, avec la différence qu'au lieu 
d'un seul, N caractères sont saisis au clavier. 

Equivalent Lynx : 

10 FOR 1=1 ro N 
20 X*=GET* 

30 NE X T J 


IIMSTR(I, A$, BS) 

Application : Recherche la chaîne B$ à l'intérieur de A$ à partir de la posi¬ 
tion I. La valeur retournée est 0 si B$ n'est pas trouvé, ou la position du 
premier caractère de B$ dans AS. 

Equivalent Lynx : Un très court programme remplacera cette fonction indis¬ 
pensable. Il pourra être incorporé très aisément dans un ensemble plus 
important. 

Remarques : 

— A l'appel du sous-programme par GOSUB LABEL INSTR, AS, B$ et I 
doivent être définis. 

— Après exécution, P contiendra la position de B$ dans AS, ou 0 si la 
recherche est négative. 
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60000 LABEL INSTR 

60010 IF I=0 THEN LET 1=1 

6 O O 2 0 C F=L E F T $ ( B $ , 1 ) 

6 0 030 IF I< =LEN<A F) THE N G0T0 60O5O 

6 O O 4 O G üT 0 60110 

60050 FOR PI TO LENIA») 

6 O O 6 O IF C F=M11J $ ( A F, P, 1 > THE N G 0 T 0 6 ô O 9 O 
6007O NEXI P 
6 OO8 O G0T O 60110 
6 O O 9 O L.=L E N ( B F > 

601 00 IF OF M I ni. ( AF, F , L > T HEN RE T URN 
6011Ô P O 
6012O RETIJRN 


SPACES(N) 

STRING$(N, X$) 

Application : SPACE$ retourne une chaîne composée de N blancs, et 
STRINGS une chaîne contenant N fois le premier caractère de X$. 

Equivalent Lynx : Il suffit de déclarer en début de programme une chaîne, 
contenant un certain nombre de fois le caractère désiré (Par ex., 

S$=”-"). Ensuite, il suffira de faire LEFT$(S$, N) 

pour obtenir un équivalent de STRINGS ou SPACES. 

Exemples : 

10 DIM GF '.4o) 

100 ? I LF TF ■ B*, 1 O > ; " RESULTATS " ; LE F T F < SF , 10 ) 

110 ’ L..EI TF 29) 

Donner a : 

RESULTATS - —- - 


100 CLS 

110 DIM SF(20),TF < 20) 

120 B F-• " " 

130 TF - " ..-.-.—. 

140 PRINT© 3,5; 

150 FOR II TO 20 
160 PR INT LEF TF(TF, I) 

I/O NEXT I 
180 PR I N T 

190 PR INT" F'OUR EFFACER, TAPEZ UNE TOUCHE 
20O XF=GETF 
21Û PEINT® 3,5; 

220 FOR 1=1 TU 20 

230 PRINT LEFTF(SF,I-1) 

240 NEX T I 
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REMARQUE : On utilise aussi STRINGS pour dessiner rapidement des cadres 
de présentation, souligner du texte etc. SPACES est utile pour effacer une 
partie d'une ligne ou un mot à l'écran: 

10 s$=" 

15 SPËED O 
20 CL S 

30 F'O Fi 1 = 1 T O 400 

40 ? CHR$(RAMD(96)+32)? 

50 NËXT 1 
60 SF'EED 70 

7 0 F' RIN T e ( R A N D ( 121 ) +3) , < R A N D < 1 2 > * 1 0 » + 5 ; L E F T “M S !■, R A N D < 6 ) ) < 
80 GOTO 70 
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2 

La mémoire du Lynx 


2.1. Introduction 


Un certain nombre d'instructions et fonctions de Basic Lynx réalisent des 
accès directs à la mémoire. La suite de ce livre se réfère fréquemment à ces 
commandes, dans le chapitre 3 pour manipuler l'écran ou générer des 
caractères, et dans le chapitre 4 pour traiter le graphique avec des 
méthodes originales. Il apparaît donc comme indispensable, avant de 
présenter cette nouvelle section du Basic, de préciser quelques points sur 
la manière dont le Lynx manipule des informations et sur son organisation 
interne. 

Une fois les instructions expliquées, ce deuxième chapitre se termine par 
une présentation du programme Moniteur et de ses fonctions spécifiques, 
et par une liste de quelques adresses utiles. 
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2 . 2 . Le stockage des données en mémoire 


Rappelons les quelques principes de base qui sont valables pour tout ordi¬ 
nateur 8 bits, et donc pour le Lynx: 

— L'unité d'information la plus élémentaire est le Bit, qui ne peut prendre 
que deux valeurs, 0 ou 1. Pour les manipuler plus facilement, ceux-ci ne 
sont pas traités individuellement mais regroupés en "mots'' de 8 bits, 

ou Octets. 

— Un octet peut prendre 256 valeurs différentes (2 8 ), de 0 à 255. Il cons¬ 
titue l'unité de stockage pour toutes les informations transitant par la 
mémoire, ainsi que la plus petite unité accessible à l'utilisateur. 
Certaines données, comme le code d'un caractère, peuvent se stocker 
sur un seul octet ; pour des valeurs plus grandes que 255, deux octets 
sont nécessaires. Chacun des 8 bits constituant l'octet peut prendre 
une valeur obtenue par sa valeur propre (0 ou 1), multipliée par son 
poids qui dépend de sa position à l'intérieur de l'octet: 

<- OCTET 


Rang - 76543210 


Poids- 2 7 2 6 2 5 2 4 2 3 2 2 2 1 2° 

128 64 32 16 8 4 2 1 

— Le poids de chaque bit se calcule par puissances de deux croissantes. 
Le bit de droite de rang 0 est appelé "le moins signifiant", et celui de 
gauche (de rang 7), "le plus signifiant". Pour obtenir donc la valeur 
d'un octet, on multiplie le poids de chacun des bits le constituant par sa 
valeur (0 ou 1), et on additionne le tout: Si, par exemple, les Bits de 
"poids” 1 6, 8 et 1 sont à 1 et tous les autres à 0, l'octet aura la valeur 
16 + 8+1=25. On voit que grâce à cette méthode de codage, un octet 
peut donc prendre toutes les valeurs entières comprises entre 0 (tous 
les bits à 0) et 255 (tous les bits à 1). 

— Pour savoir où est rangée chaque information et y accéder rapidement, 
l'ordinateur utilise des Adresses: Chaque octet est accessible par son 
adresse, qui permet de le définir par rapport à ses voisins. Les valeurs 
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des adresses étant comprises entre 0 et 65535 sur tous les Basic, deux 
octets sont nécessaires si l'on veut les stocker, car un octet ne peut pas 
prendre une valeur supérieure à 255. Dans le principe de codage, toute 
adresse est divisée en deux octets: 

• Le premier, appelé octet de poids faible est le reste de la division 
entière de l'adresse par 256 «adresse> MOD 256). 

• Le deuxième, appelé octet de poids fort, est le résultat de cette divi¬ 
sion entière (<adresse> DIV 256). 

— Pour relire une adresse codée sur deux octets, on ajoute la valeur de 
l'octet de poids faible à celle de l'octet de poids fort multipliée par 256 : 
<Adresse>=<octet 1>+<octet 2>*256. 

— Pour une valeur supérieure à 255 codée sur deux octets, l'octet de 
poids faible est toujours contenu dans l'adresse la plus basse. 

— Deux instructions permettent d'écrire directement dans une ou deux 
adresses, POKE et DPOKE. Les fonctions correspondantes, prévues 
pour lire le contenu de une ou deux adresses, sont PEEK et DPEEK. La 
syntaxe régissant l'emploi de ces commandes est détaillée au para¬ 
graphe 2.4.2. 


2.3. L'organisation mémoire 


La mémoire d'un ordinateur peut être comparée à un livre, divisé en 
chapitres d'inégale importance, et traitant de sujets différents. Chacun 
d'eux n'est susceptible de contenir qu'un type précis d'information. On peut 
énumérer : 

— La ROM ou mémoire morte, qui représente le ' sommaire du livre", 
contient le langage Basic du Lynx et ne peut être modifiée. 

— La RAM, ou mémoire vive. Cette zone est entièrement accessible à 
l'utilisateur pour écrire des programmes, mais contient également les 
informations concernant le contenu de l'écran et les variables en cours 
d'utilisation. L'organisation interne du Lynx est assez originale, et peut 
être schématisée dans un plan que l'on appelle Memory Map: 
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MEMORY MAP - LYNX 96 K. 


' / 

MEMOIRE 

VIVE 

64 K 

••••••••••• 


iü 


BANQUE 

ROUGE 

8 K 

BANQUE 

VERT 

8 K 


/ 

BANQUE 
VERT ALT. 

8 K 


BANQUE 

BLEU 

8 K 

' ' ' i'' 

' 

s // ' 


/ / / / 

R.O.M. 

24 K. 

///// 

//// 


///y 

s' ^ 

/'s' 

^ / 



s' / 


PAGE 0 

PAGE 1 

PAGE 2 

PAGE 3 


65535 


57344 


49152 


40960 


32768 


24576 


16384 


8192 


0 

ADRESSES 


Légende : ! Il II II ! Zones fictives de la mémoire, non disponibles. 


Parties de la RAM ayant les mêmes adresses que la ROM, 
inaccessible au Basic. 
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Explications : 

Sur le Lynx 96 K, quatre pages mémoire sont disponibles, numérotées de 0 

à 3. Pour chacune de ces zones, l'adressage va de 0 à 65535. 

Page 0 Cette zone contient les 24 K de ROM du Lynx, entre les adresses 
0 et 24574. Les autres adresses sont inutilisées. 

Page 1 Ce sont les 64 K de mémoire vive utilisateur, de la version 96 K 
(la numérotation va de 0 à 65535). La zone représentée "••••" 
correspond aux 24 K de RAM ayant les mêmes adresses que la 
ROM. Cette zone ne peut être utilisée par l'intermédiaire du Basic. 
On dispose donc approximativement de 40 Kiloctets pour pro¬ 
grammer sur le Lynx 96 K. 

Dans le cas de la version 48 K, la zone de mémoire vive utilisateur 
est comprise entre les adresses 24576 et 40960. Sur cette 
version, c'est donc de 1 6 K dont on dispose pour les programmes. 

Page 2 Cette portion de 1 6 K de mémoire vive, à laquelle on ne peut 
accéder directement, est située entre les adresses 32768 et 
57344 et destinée à stocker le contenu de deux banques de 
couleur, bleu et rouge. Ces banques sont utilisées pour toutes les 
fonctions d'affichage et peuvent être déconnectées. Vous trouve¬ 
rez l'explication complète du mode d'affichage au 
paragraphe 3.1.2. 

Page 3 Zone de nature identique à la précédente, mais contenant les 
banques de couleurs vert et vert alternatif. Cette dernière banque 
ne semble pas être utilisée en fonctionnement normal; on peut 
toutefois s'en servir pour créer une deuxième page écran, 
méthode exposée au paragraphe 3.1.2. 

Remarques: 

— L'accès direct à la page 1 est possible par PEEK et POKE. Les pages 2 
et 3 peuvent être déplacées en bloc pour modifier le fonctionnement de 
l'affichage, mais on ne peut y écrire. 

— Les 64 K de mémoire utilisateur et les deux pages de 1 6 K qui corres¬ 
pondent aux banques de couleur représentent les 96 K de mémoire du 
Lynx 96 K. Sur le 48 K, seule la quantité de mémoire vive de la page 1 
est diminuée (16 K), les banques de couleur restant identiques. 

— La zone de mémoire vive de la page 1, comprise entre la dernière 
adresse de la ROM (24576) et l'adresse 26957, contient toutes les 
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variables-système du Lynx. Ces variables sont des pointeurs codés sur 
deux octets, contenant les adresses importantes du système (cf. § 2.6). 
Ces 2 Koctets de mémoire réduisent d'autant la place disponible pour 
le Basic (1 3.5 K. pour la version 48 K, et 38.5 K pour la version 96 K). 


2.4. Commandes agissant sur la mémoire 


2.4.1. Le principe des accès mémoire 

Toutes les fonctions du Lynx passent par le processeur central Z 80. Le 
Basic est un langage destiné à l'utilisateur, qui est interprété et converti en 
code-machine, le seul qui peut être compris par le Z 80. Toutes les routines 
traduisant les instructions du Basic sont contenues dans la mémoire morte 
du Lynx, on ne peut donc les modifier. Trois types d'actions sont tout de 
même possibles pour le programmeur: 

1. Effectuer des accès directs à la mémoire, c'est-à-dire lire et écrire direc¬ 
tement dans des adresses. Pour ce faire, on utilise les instructions 
POKE et DPOKE, ainsi que les fonctions PEEK et DPEEK. De 
nombreuses manipulations sont possibles, à condition de bien 
connaître la structure-mémoire de l'ordinateur. De plus, certaines fonc¬ 
tions renvoient les adresses les plus importantes de la mémoire, pour 
permettre la modification de leur contenu. C'est le cas, entre autres, de 
HIMEM, HL, ALPHA, GRAPHIC. (Une liste des adresses qu'on ne peut 
obtenir par des fonctions spécialisées est donnée au § 2.6). 

2 . Écrire des programmes en langage-machine, c'est-à-dire des suites de 
codes ayant une signification pour le Lynx. Un programme de ce type 
s'exécute à partir du Basic avec CALL. Là encore, le Lynx offre des facili¬ 
tés avec les commandes CODE et LCTN. La présence d'un programme 
Moniteur en ROM apporte une grande souplesse dans ce domaine 
(§ 2.5). 

3. Enfin, on peut agir sur les ports du Z 80 avec INP et OUT. Toute action à 
partir du clavier vers l'écran, ou à partir d'un quelconque périphérique 
vers l'unité centrale, passe par les ports d'entrée/sortie du Z 80. En 
lisant et en envoyant des données dans ces ports, on peut modifier les 
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affichages-écran ou saisir des données au clavier, avec parfois plus de 
souplesse qu'en Basic (voir § 3.1.5 et § 4.1.5). 


2.4.2. Instructions 

CALL 

Syntaxe : CALL <Adresse> [,A] 

Application : Cette instruction sert à appeler une routine en langage- 
machine, préalablement écrite en mémoire et débutant à l'adresse donnée 
comme argument de CALL. Il est noter qu'on ne retournera au Basic que si 
un RTS (instruction assembleur équivalente à RETURN) termine la routine. 
Le passage d'un paramètre à la routine est possible, en transférant la valeur 
de A dans le registre HL du Z 80. A est une variable ou une constante 
comprise entre 0 et 65535, qui sera arrondie à l'entier inférieur si elle 
comporte des décimales. Des choses inattendues se passeront si vous 
appelez des routines de la ROM, mais l'ordinateur se bloquera souvent. 

Exemple : CALL 0 

Équivaut à un RESET par programme, avec le logo de mise en route en 
prime. 


CODE 

Syntaxe: CODE <octet 1> <octet 2>...<octet n> 

Application : CODE permet l'implantation d'une routine en langage- 
machine en mémoire, à partir d'un programme Basic. Les octets, consti¬ 
tuant les divers pas de la routine, sont des valeurs hexadécimales séparées 
par un espace. La ligne contenant CODE est ignorée par le programme 
Basic, seule l'instruction LCTN permet de connaître l'emplacement 
mémoire de ces octets. 

Remarque: Les octets sont entrés directement en hexadécimal, sans les 
faire précéder d'un " & " (la notation décimale est donc impossible). 

Exemple. 10 CODE C2 A9 B7 
20 A=LCTN(10) 

30 CALL A 
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DPOKE 

Syntaxe -. DPOKE A,X 

Application : Cette instruction est utile pour charger deux adresses consé¬ 
cutives de la mémoire (A et A+1 ) avec un nombre X codé sur deux octets. 
L'adresse A reçoit l'octet de poids faible et A+1 l'octet de poids fort. A et X 
sont des variables ou constantes comprises entre 0 et 65535, et seront 
arrondies à l'entier inférieur. 

Remarque : DPOKE A,X est l'équivalent exact de : 

POKE A,(X MOD 256) 

POKE A + 1,(X DIV 256) 

Exemple : 

DPOKE 16000,290 

Stocke à l'adresse 16000 l'octet 34 et à l'adresse 16(001 l'octet 1. 

EXT 

Syntaxe : EXT <Nom d'instruction> 

Application : EXT est employé pour ajouter de nouvelles instructions au 
Basic du Lynx. Ces instructions doivent être entrées en code machine et 
placées à des adresses spécifiques. 

Exemple : 

EXT SPRINT/PPRINT 

Sont deux instructions implantées sur la version 96 K pour la gestion des 
imprimantes. 

LCTN 

Syntaxe: LCTN (<N° de ligne>) 

Application : On utilise LCTN pour connaître l'implantation en mémoire des 
codes inclus dans une ligne de programme Basic contenant l'instruction 
CODE. LCTN cherche la ligne spécifiée, et renvoie l'adresse du premier 
octet qui suit CODE. On peut ensuite exécuter la routine avec CALL 
<Adresse trouvée>. 
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MON 

Syntaxe : MON 

Application : Appelle le programme Moniteur, avec sortie du Basic (voir 
§ 2.5). 

Remarques : 

— Le programme Basic et ses données ne sont pas effacés de la mémoire. 

— MON affiche le contenu des registres du Z 80, dans l'ordre suivant : AF, 
HL, DE, BC, AF', HL', DE', BC', IX, IY, SP, PC. 

— Il faut frapper la touche "J” pour revenir au Basic. 


OUT 

Syntaxe : OUT P,<octet> 

Application : OUT envoie un octet sur le port P du Z 80. <octet> doit être 
compris entre 0 et 255. 

REMARQUE: L'emploi des ports, bien qu'assez complexe, permet des 
"trucs” apportant des compléments au Basic (voir § 3.1.5, 4.1.5). 

POKE 

Syntaxe : POKE A,X 

Application : Modifie le contenu de l'adresse A, en y plaçant l'octet X. A est 
un entier compris entre 0 et 65535, X lui est compris entre 0 et 255. 

REMARQUE: La fonction PEEK est le complément de POKE. Une utilisation 
erronée de POKE peut bloquer le fonctionnement de l'ordinateur. 

Exemple : 

POKE 26957,192 

Réintègre en mémoire un programme détruit par NEW. 

RESERVE 

Syntaxe : RESERVE <adresse> 

Application : Fixe l'adresse de la plus haute position mémoire accessible 
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par le Basic, appelée HIMEM. La portion de mémoire au-dessus de HIMEM 
est alors protégée, et peut servir pour stocker des données ou des 
programmes en langage-machine. 

REMARQUE: Si <adresse> est supérieure à HIMEM, une erreur est 
provoquée. 


2.4.3. Fonctions 

ALPHA 

Syntaxe: ALPHA 

Application : ALPHA est un pointeur, c'est-à-dire une constante contenant 
la première adresse d'un couple servant lui-même à coder une adresse 
importante de la mémoire. Dans le cas d'ALPHA, l'adresse pointée est celle 
contenant l'emplacement du jeu de caractères alphanumérique standard 
(caractères dont les codes sont compris entre 32 et 127). 

Remarque: Le contenu de l'adresse pointée par ALPHA peut être modifié, 
afin de déplacer la position où le jeu est lu en mémoire. 

Exemples : 

PRINT ALPHA retourne 25199 sur le Lynx 96 K. 

PRINT DPEEK(ALPHA) retourne 148, c'est le point où démarre le jeu de 
caractères standard du Lynx. 

DPOKE ALPHA, GRAPHIC fait démarrer la lecture du jeu de caractères 
standard au début de la table des caractères semi-graphiques (voir 
GRAPHIC). L'action sur les touches retourne des mosaïques à la place du 
jeu ASCII. 

DPEEK 

Syntaxe : DPEEK (A) 

Application : Cette fonction nous permet de connaître le contenu de deux 
adresses mémoire consécutives (A et A+1). Il s'agit bien sûr du complé¬ 
ment de l'instruction DPOKE. L'adresse A contient l'octet de poids faible et 
A+1, celui de poids fort. 

Remarque: PRINT DPEEK(A) est équivalent à 

PRINT PEEK(A)+(PEEK(A + 0*256) 
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Exemple : 

PRINT DPEEK(25181) 

Renvoie la vitesse de clignotement du curseur, modifiable par CFR. 

GRAPHIC 

Syntaxe-. GRAPHIC 

Application : Comme ALPHA, il s'agit d'un pointeur, mais renvoyant 
l'adresse contenant le point de démarrage en mémoire du jeu de caractère 
alternatif, dont les codes sont compris entre 128 et 249. Ce jeu comprend 
une copie du jeu normal ASCII entre les codes 128 et 223, et la table des 
mosaïques graphiques entre 224 et 249. 

Remarque: GRAPHIC est employé pour déplacer le jeu alternatif en 
mémoire lors de la création de caractères, traitée au paragraphe 3.2.2. 

Exemple : 

? GRAPHIC Retourne 25201 
? DPEEK (GRAPHIC) 

Retourne 468, l'adresse de début en mémoire du jeu alternatif. 


HIMEM 

Syntaxe : HIMEM 

Application : Retourne la plus haute position mémoire accessible par le 
Basic. 

REMARQUE: On peut modifier HIMEM grâce à l'instruction RESERVE. 

Exemples RESERVE 49151 place HIMEM en 29151. 

RESERVE HIMEM—30 décale HIMEM de 30 octets. 


HL 

Syntaxe : HL 

Application -, Renvoie le contenu du registre HL, après exécution d'un CALL 
avec passage de variable. 

REMARQUE : Si un CALL n'a pas été exécuté, HL retourne 0. 
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INP 


Syntaxe : INP (P) 

Application : Retourne la valeur de l'octet présent au port P du Z 80. 
Remarque: INP est la fonction inverse de OUT. 

LETTER 

Syntaxe : LETTER (C) 

Application : Calcule la première adresse en mémoire du caractère de code 
C. 

Remarque: On utilise surtout LETTER pour la modification de caractères, 
dont les codes sont compris entre 128 et 249 (voir § 3.2.2). 

Exemple : 

? LETTER(249) 

Renvoie 1678, c'est la première des huit adresses-mémoire du pavé en 
vidéo inverse de code 249. 


MEM 

Syntaxe : MEM 

Application : Retourne l'espace mémoire restant disponible pour le Basic. 
Exemple : 

10000 LABEL MEM 

10010 IF MEM <200 THEN ?"PLUS DE MEMOIRE” 

10020 RETURN 

Ce sous-programme, appelé régulièrement dans un programme 
' gourmand'' en mémoire, avisera l'utilisateur en cas de pénurie! 


PEEK 

Syntaxe : PEEK (A) 

Application : Donne la valeur de l'octet contenu dans l'adresse A. PEEK est 
le complément de POKE. 
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Exemple : 

? PEEK(25141) 

Renvoie le dernier caractère entré au clavier. 


2 . 5 . Le programme moniteur 


Le Moniteur est un logiciel implanté dans la mémoire morte du Lynx qui 
supervise toutes les fonctions du Basic, et contient les utilitaires de base du 
système. Ces utilitaires en langage-machine sont habituellement exploités 
par le Basic, et à priori ne concernent pas l'utilisateur. En fait, ces routines 
sont très facilement accessibles à l'aide de MON, qui passe la main au 
programme Moniteur. 

Une liste d'instructions est alors disponible, sous la forme de commandes 
comprenant une seule lettre. Le seul inconvénient réside dans l'impossibi¬ 
lité d'inclure ces puissantes instructions à l'intérieur d'un programme Basic. 
Nous verrons au paragraphe 2.5.2 comment tourner cette difficulté. 

Remarques: 

— Toute commande du Moniteur est entrée sous la forme: 
<Commande> X Y... suivis de RETURN 

où X et Y sont des nombres hexadécimaux séparés d'un espace. 

— Lors de l'emploi du Moniteur, le curseur est fixe et s'affiche sous la 
forme d'un astérisque. 

— Une erreur d'entrée provoque l'apparition de quatre points d'interroga¬ 
tion (????). 


2.5.1. Les commandes du moniteur 

ARITHMETIC 

Syntaxe : A X Y 

Application : La commande A calcule et affiche X+Y, X—Y, Z. Z représente 
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le saut relatif à effectuer pour aller de X à Y (nombres d'adresses les sépa¬ 
rant). C'est la seule instruction de calcul du Moniteur. 

Exemple : 

A AF A0 renvoie 014F 000F EF 

BREAKPOINT 

Syntaxe: B |X| 

Application : Interrompt l'exécution d'un programme en langage-machine, 
lorsque l'adresse X est atteinte. BREAKPOINT passe la main au Moniteur, 
qui autorise l'examen des registres et leur modification. B sans argument 
redémarre l'exécution. 

Remarque : B est équivalent à STOP et CONT en Basic. 

COPY 

Syntaxe : C X Y Z 

Application : Copie un bloc de Z octets de mémoire, de la zone débutant à 
l'adresse X vers la zone débutant à l'adresse Y. 

Remarques : 

— Si les zones se chevauchent, celle démarrant à X est modifiée au fur et 
à mesure de la copie. (Voir INTELLIGENT COPY.) 

— COPY est utile pour déplacer une zone mémoire, et s'exécute très 
rapidement. 

Exemple : 

C A000 BFFF FF 

Copie 255 (FF) octets de l'adresse 40960 (A000) à l'adresse 49151 
(BFFF). 

C A000 A001 FF 

Les deux zones se chevauchant, le contenu de l'adresse A000 est recopié 
successivement sur 255 octets. 
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DUMP CASSETTE 

Syntaxe: D X Y Z "<Nom>" 

Application : Copie sur le K7 la zone mémoire comprise entre les adresses 
X et Y. Le nom permet de recharger ensuite la zone mémoire en l'associant 
à un identificateur. L'argument Z spécifie l'adresse à laquelle le programme 
démarre l'exécution après son rechargement. Si la zone mémoire sauve¬ 
gardée ne correspond pas à un programme exécutable, mais à un bloc de 
données, il faut entrer Z=0. 

Remarques : 

— DUMP est la seule fonction du Lynx permettant la sauvegarde sur K7 
de données ou de variables. On l'utilise dans le chapitre 3, pour conser¬ 
ver les jeux de caractères créés avec le programme GENECAR, et dans 
le chapitre 5 afin de sauvegarder des mélodies créées par le 
programme CHOPIN. La méthode est toujours la même: On range les 
données à sauvegarder dans un tableau, on copie le contenu de ce 
tableau dans la zone mémoire démarrant à HIMEM (après l'avoir 
abaissée du nombre d'adresses désiré avec RESERVE), et on transfère 
cette zone sur K7 à l'aide de DUMP. 

— Une fois les données sauvegardées, la commande R permet de les 
recharger par l'intermédiaire du Moniteur, et l’instruction MLOAD à 
partir du Basic (voir § 1.5.4). 

— La zone est rechargée à l'endroit qu'elle occupait lors de sa sauvegarde. 

Exemple : 

D 6256 6259 0 "Window" 

Sauvegarde sur K7 les quatre paramètres de l'instruction WINDOW. 
L'exécution de MLOAD "Window” réinitialise la fenêtre-écran avec ces 
paramètres (§3.1.2). 


EXECUTE 

Syntaxe : E [X] 

Application : Cette commande réinitialise le contenu des registres du Z 80, 
et exécute le programme stocké à l'adresse X. E sans argument démarre 
l'exécution à partir de l'adresse stockée dans le registre PC (Compteur 
Programme). On peut l'utiliser comme B (BREAKPOINT). 
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Remarque: E est équivalent au RUN Basic. 


FILL 

Syntaxe : F X Y Z 

Application : Place l'octet Z dans toutes les adresses mémoire comprises 
entre X et Y inclus. 

GO 

Syntaxe: G X (Y| 

Application : Exécute le programme débutant à l’adresse X, sans modifica¬ 
tion des registres du Z 80. Si le paramètre Y est ajouté, sa valeur est 
chargée dans le registre DE. On peut donc par intermédiaire passer une 
variable au programme. 

Remarque: G est l'équivalent de CALL en Basic. 

DUMP HEXADECIMAL 

Syntaxe: H |X| 

Application : Affiche à l'écran le contenu des 128 adresses mémoire 
suivant X. Chaque ligne est imprimée sous le format suivant: 

— La première adresse d'un groupe de huit. 

— Les huit octets suivant cette adresse. 

— Les huit caractères ASCII correspondant aux octets. Si aucun caractère 
ne correspond au code, un point "." est affiché. 

Si X est omis, sa valeur par défaut correspond à la dernière adresse pointée 
par une instruction du Moniteur. 

REMARQUE: Une fois les 16 lignes d'octets affichées, il suffit de rentrer H 
sans argument pour visualiser les 128 suivants. 

INTELLIGENT COPY 

Syntaxe : I X Y Z 

Application : Identique à COPY (C), en effectuant celle-ci par décalage de 
2 octets à la fois seulement afin d'éviter les problèmes posés par les zones 
se chevauchant. 
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Exemple : 


C A000 A001 FF 

Décale d'une adresse la zone de 255 octets démarrant à A000. 

JUMP 

Syntaxe : J 

Application : Abandon du Moniteur et retour au Basic. 


LOCATE 

Syntaxe : L X Y 

Application : Recherche la présence de l'octet Y dans toute la mémoire à 
partir de l'adresse X. Chaque fois que l'octet est rencontré, son adresse est 
affichée. 

Remarque : ESC Interrompt ce mode. 


MODIFY 

Syntaxe : M [X Yi Y 2 ... Y n | 

Applications '. Autorise l'examen d'une zone mémoire adresse par adresse, 
ainsi que sa modification. Deux méthodes sont disponibles: 

1. M X, où X représente l'adresse à modifier, affichera celle-ci suivi de son 
contenu entre crochets. Un curseur clignotant indique que l'on peut 
entrer un octet qui remplacera le contenu de X (en cas d'omission de X, 
la dernière adresse pointée par le moniteur sera prise par défaut): 

• Si un seul octet suivi de <RETURN> est entré, M passe, dans le 
même mode, à l'adresse suivante. 

• Si par contre on entre une suite d'octets séparés d'espaces, ils sont 
rangés à partir de l'adresse X dans l'ordre de leur entrée. M passe 
ensuite à l'adresse suivant celle du dernier octet modifié. 

• Si on entre uniquement <RETURN>, M passe à l'adresse suivante 
sans modifier le contenu de X. Cette fonction est pratique pour exami¬ 
ner un bloc d'adresses pas à pas. 

2. M suivi de X et d'une succession d'octets, range ceux-ci dans l'ordre de 
leur entrée à partir de l'adresse X, puis affiche l'adresse suivant celle du 
dernier octet modifié. 


77 



Remarques: 

— Un "/" suivi de <RETURN> sur le curseur clignotant provoquera le 
retour à l'adresse précédente. 

— Un suivi de <RETURN> permet de sortir du mode MODIFY. 

OUTPUT 

Syntaxe : O X Y 

Application : OUTPUT envoie l'octet Y sur le port X d Z 80. 

REMARQUE: Équivalent à l'instruction OUT du Basic. 

INCREMENT 

Syntaxe : P X 

Application : Incrémente le contenu du registre PC (Compteur Programme) 
de la valeur X. 

QUERY PORT 

Syntaxe : Q X 

Application : Lit et affiche l’octet présent sur le port X du Z 80. 
REMARQUE: QUERY correspond à INP en Basic. 

READ CASSETTE 

Syntaxe: R "<Nom>" 

Application : Relit sur K7 le programme ou la zone mémoire nommée. 
Remarque: READ correspond à MLOAD en Basic. 

SCREEN CLEAR 

Syntaxe : S 

Application : Efface l'écran sous Moniteur. 
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TYPE 

Syntaxe: T X <suite de caractères> 

Application : Stocke le code ASCII des caractères entrés, à partir de 
l'adresse X. 

Exemple : 

T A000 COMPUTER RETURN 
H A000 RETURN 

UPDATE 

Syntaxe : U <Nom du registre> X 

Application : Remplace le contenu du registre spécifié par X, puis affiche le 
contenu de tous les registres dans le même ordre que lors du passage en 
Moniteur. 

Exemple : 

X RETURN 

U AF 0 RETURN 


VERIFY 

Syntaxe : V X Y Z 

Application : Vérifie que la zone mémoire démarrant à l'adresse X et de 
longueur Z octets, est identique à celle débutant à l'adresse Y. Lors de la 
recherche, les adresses dont le contenu est différent sont affichées. 


WORD 

Syntaxe : W X Y 

Application : W est identique à LOCATE, mais cherche un mot codé sur 
deux adresses (Y), à partir de l’adresse X. 

Remarque: Dans les couples d'adresses examinés, la plus basse est 
sensée contenir l'octet de poids le plus faible. 
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REGISTER 1 

Syntaxe : X 


Application : Affiche le contenu des registres du Z 80, dans le même ordre 
qu’à l'appel du Moniteur: 

AF HL DE BC 

AF' HL' DE' BC' IX IY SP PC 

REGISTER 2 

Syntaxe : Z 

Application : Liste en colonnes les registres du Z 80, suivis de leur contenu 
et des huit octets qu'ils pointent. 


2.5.2. L'emploi du moniteur sous Basic 


L'intérêt du Moniteur réside sans conteste dans les fonctions auxquelles il 
permet d'accéder et qui sont irréalisables par le Basic. L'inclusion de fonc¬ 
tions du Moniteur dans un programme est possible par une méthode 
simple: Il suffit d'écrire à l'écran, juste avant la sortie du Basic (MON), un 
commentaire contenant des instructions expliquant la marche à suivre sous 
Moniteur, ainsi que le moyen de retourner en Basic. 


Exemple . Affichage des registres du Z 80. 

J. 00 RO I RI. l • I S ! I• I : • 
i J y w i nD ow :., i , ■., 2 45 
t.20 U. ... 

130 VL)U 13 

140 RI V1 NT© 200; "POUR AFFICHER LES REGISTRES, TAPER Z., 
ISO l'R ! 1110 3,21 S ï "POUR RETOURNER DANS LE PROGRAMME, .TAPI 
SUIVI DE I • i 11.IR H PUIS GOTO LABEL GO.." 

I SO RP [Mro 3,5;"AFFICHAGE DES REGISTRES DU Z 80 .. 1 

170 VPU I8 

2 oo w i Ndow , 12 3 , 15 ,, 195 

2)0 VP! 1 3 

220 MON 

230 1 ADEL GO 

240 WI UDOW 3, 123,5,245 

250 (2LS 

260 PRINT"RETOUR AU BASIC EFFECTUE. TERMINE" 
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REMARQUE: Les points à la fin des commentaires servent à compter les 
espaces. 


Explications : 


1 10,120 
130 

140,180 

190 

200 

210 


Réinitialise l'écran. 

Sélection de la vidéo inverse. 

Affichage des commentaires et explications. 

Retour en vidéo normale. 

Sélection de la fenêtre-écran où seront affichés les registres. 

Le curseur est placé dans cette fenêtre (pour tous les codes 
VDU, voir § 3.1.1). 


220 : Appel du Moniteur. 

230,260: Fin du programme. 


2 . 6 . Quelques adresses utiles 


Cette liste d'adresses apporte des informations très utiles sur l'organisation 
du Basic et des variables. Elle est incomplète, car les adresses concernant 
la gestion d'écran, le graphique et la couleur sont traitées dans les 
chapitres correspondants. 

Rappel : Ces adresses sont des pointeurs, c'est la lecture de leur contenu 
qui retourne le point recherché, et non leur valeur elle-même. 


2.6.1. Les pointeurs-système 

DPEEK (25082) : Adresse de début de la zone programme en mémoire. 

26957 : Adresse du premier octet de la première ligne de 
programme. 

DPEEK (25084) : Fin de la zone programme, début des variables 
numériques. 
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DPEEK (251 1 9) : Sommet des variables. 

Remarques : 

— Les variables-chaîne sont stockées à partir de leur sommet vers 
l'adresse la plus basse du Basic, tandis que programme et variables 
numériques le sont à partir de la dernière adresse de la ROM vers le 
sommet de la mémoire. Une zone tampon sépare sommet des chaînes 
et sommet des variables numériques, évitant le chevauchement de ces 
deux sections. 

— On peut, par l'intermédiaire du Moniteur (DUMP), stocker ces zones 
sur cassette pour la sauvegarde de variables dans un programme. 


2.6.2. Les adresses fonctionnelles 

DPEEK (251 11): Adresse de démarrage en mémoire de la table des noms 
de fonctions acceptés par le Basic Lynx. On peut exami¬ 
ner cette table par l'intermédiaire du Moniteur à l'aide 
de la commande H, ou en Basic avec le programme 
suivant : 


100 CL.S 

105 A=- nn. I I (251 1 ! > 

110 FOR ]>A T 0 A+ 361 
1 CO Al. -CI IR $ CPE EF ( I i > 

i 30 J. 1 fisc 4 h$ - , 96 T HLM U I A$=CHR$ ( ASC 4 n i. ) 32 ) 
140 U PERI 4 T ■ 32 n-IEN ? A 1 m 
150 ne: X I I 


Explications : 

110: Boucle parcourant la table à partir de l'adresse de début. 

120: Saisie d'un caractère de la table. 

130: Conversion en majuscules. 

140: Impression des caractères. 

DPEEK (251 13) : Cette adresse pointe sur la table des Instructions du 
Basic. On peut l'examiner avec le même programme, en 
modifiant la ligne 105. 
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DPEEK (25097) : Après interruption par STOP ou ESC, ce pointeur 
contient l’adresse de redémarrage du programme 
utilisée par l'instruction CONT. Si l'exécution ne peut 
être reprise, DPEEK (25097) renvoie 0. On peut forcer le 
point de démarrage en donnant à ce pointeur la valeur 
de l'adresse de début d'une autre ligne de programme: 
DPOKE 25097,A. 

DPEEK (251 39) : Stocke la valeur déterminant le temps mis par le Lynx 
pour déclencher l'autorépétition des touches du clavier 
(2048 à la mise sous tension). Pour diminuer ou allonger 
ce temps, il suffit de modifier cette valeur par DPOKE. 
Une valeur très élevée supprime l'autorepeat. 

PEEK (251 45) : Stocke sur un octet l'état de <SHIFT LOCK>. 0 corres¬ 
pond au blocage majuscules, et 1 au mode normal. On 
peut donc forcer par programme l'état du clavier, quel 
que soit son état précédent (alors que la touche <SHIFT 
LOCK> fonctionne en bascule). 


Exemples : 

10 CL S 

20 POLE 25145,0 
30 X*=GET* 

40 ? X4>S 
50 GOTO 20 

Le clavier reste en majuscule, sauf en cas d'appui continu sur SHIFT. 

PEEK (251 41): Contient le code du dernier caractère entré au clavier. 

PEEK (25146) 

à (25171): Ces 26 adresses correspondent aux 26 codes des instruc¬ 
tions générées par le One-Key Basic (ESC A à Z). On peut, 
par leur intermédiaire, modifier la configuration clavier en 
déplaçant ou modifiant les codes. Rappelons que toute 
instruction ou fonction possède un code sur un octet. 

Exemple'. POKE 25146,47 remplace AUTO par LABEL en frappant ESC 

A. 
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Voici la liste complète des codes en One-Key Basic: 


Touche 

Instruction 

Code 

Adresse 

A 

AUTO 

28 

25146 

B 

BEEP 

48 

25147 

C 

CONT 

21 

25148 

D 

DEL 

27 

25149 

E 

DATA 

65 

25150 

F 

DEFPROC 

2 

25151 

G 

GOTO 

16 

25152 

H 

GOSUB 

17 

25153 

1 

INPUT 

37 

25154 

J 

LABEL 

47 

25155 

K 

MON 

62 

25156 

L 

LIST 

40 

25157 

M 

RETURN 

18 

25158 

N 

N EXT 

5 

25159 

0 

ENDPROC 

4 

25160 

P 

PROC 

3 

25161 

Q 

REM 

23 

25162 

R 

REPEAT 

56 

25163 

S 

STOP 

14 

25164 

T 

TRACE 

68 

25165 

U 

UNTIL 

57 

25166 

V 

VERIFY 

9 

25167 

w 

WHILE 

54 

25168 

X 

WEND 

55 

25169 

Y 

RUN 

20 

25170 

Z 

RESTORE 

3 

25171 


Tous les codes des instructions et fonctions étant compris entre 1 et 255, il 
est facile de faire une liste complète de toutes les commandes en assignant 
à la même touche du clavier tous les codes successivement. Cette liste 
vous permettra ensuite d'effectuer les combinaisons les mieux adaptées à 
vos besoins. 

On peut sauvegarder une configuration clavier sur K7, et la recharger par le 
Basic : 
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Sauvegarde : 


MON RETURN 

D 623A 6254 "TABLE" RETURN 

J RETURN 

Chargement : 

MLOAD "TABLE" RETURN 
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3 

La gestion de l'écran 
et les jeux de caractères 


Cette section est consacrée à l'écran en mode texte, ainsi qu’à tous les 
codes, commandes et fonctions correspondantes. L'écran haute-résolution 
graphique est traité au chapitre 4. 


3.1. La gestion de l'écran 


L'écran est prévu pour afficher 24 lignes de 40 caractères chacune. Il est 
possible d'y mélanger texte et graphique haute-résolution, ainsi que d'y 
définir la taille d'une fenêtre d'écriture. Certains codes, appelés Code de 
Contrôle, autorisent une gestion très simple de la couleur et du position¬ 
nement du curseur. Enfin, un éditeur assez performant est prévu pour la 
mise au point des programmes. 
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Toutes ces fonctions, associées à l'emploi de quelques astuces en langage 
machine, apportent au Lynx une grande souplesse d'affichage et améliore 
la présentation des programmes. 


3.1.1. Les codes de contrôle 

L'affichage de tous les caractères du code ASCII est possible avec PRINT 
CHR$(C), ou C représente le code du caractère. Une instruction du Basic 
est prévue pour remplacer "PRINT CHR$(C);": 


VDU 

Syntaxe : VDU <code 1>,<code 2>,...<code n> 

Application : Affiche à l'écran à la position du curseur les caractères corres¬ 
pondant à la liste de codes suivant l'instruction. 

Remarque: Les caractères sont affichés côte à côte sans séparateurs. 

Exemple : 

VDU 65,87 


Cette commande est surtout utile pour l'affichage de Codes de Contrôle. 
On appelle codes de contrôle les codes ASCII inférieurs à 32. Chacun d'eux 
correspond, non pas à un caractère, mais à une fonction du Basic concer¬ 
nant en général l'écran. Sur le Lynx, ces codes ne sont pas accessibles en 
mode direct par une simple combinaison de touches. Vous trouverez ci- 
dessous la ligne complète de ces codes. 

VDU 1,<N° Couleur> Équivalent de INK <Couleur>, cf. §3.1.3. 

VDU 2,<N° Couleur> Équivalent de PAPER <Couleur>, cf. § 3.1.3. 
VDU 4 Équivalent de CLS. 

VDU 5 Déplace le curseur en mode texte de un pixel vers le haut (un 
caractère occupe 10 pixels). 

VDU 6 Déplace le curseur de un pixel vers le bas. 

VDU 7 Envoie une courte tonalité dans le HP. 
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VDU 8 Déplace le curseur d’un espace vers la gauche en effaçant le 
caractère précédent et en ramenant le restant de la ligne. 

VDU 9 Déplace le curseur vers la droite, à la position de tabulation 
suivante (une position toutes les dix colonnes). 

VDU 10 Passe à la ligne sur une même colonne (line feed). 

VDU 12 Déplace le curseur d'un espace vers la droite, sans effacement. 

VDU 13 Place le curseur au début de la ligne suivante en effaçant celle-ci. 

VDU 14 Le curseur reste toujours visible sous la forme d'un trait de souli¬ 
gnement pendant l'exécution d'un programme. 

VDU 1 5 Supprime le mode précédent; 

VDU 16 Place le curseur en haut et à gauche de l'écran. 

VDU 1 8 Intervertit les couleurs de fond et de premier plan: C’est l'affi¬ 
chage en vidéo inverse. 

VDU 19 Effectue un VDU 1 3 si le curseur n'est pas déjà au début d’une 
ligne. 

VDU 20 Supprime le mode "surimpression" (VDU 21). 

VDU 21 Sélectionne le mode "surimpression". On put dans ce cas écrire 
par dessus les caractères présents à l'écran, sans les effacer. Si 
deux points ont les mêmes coordonnées, la couleur résultante est 
la combinaison de la couleur de ces deux points. 

Exemple : 

100 REM CODE VDU 21 

105 PROTECT 0 

110 VDU 2,1 

120 CLS 

130 VDU 1,0 

140 FOR 1=1 TO 960 

150 PR INT "A"; 

160 NEXT I 
180 VDU 1,4 
190 VDU 24,21 

200 PRINT© 3,60;"TEXTE EN SURIMPRESSION"; 

210 VDU 25 
220 PROTECT 0 
230 VDU 1,7 

240 PRINT© 3,235;"FIN"; 
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Explication : 

105,130 :Efface l'écran, sélectionne un fond bleu et une encre noire. 
140,160: Remplissage de l'écran. 

180 : La couleur de l'encre est passée en vert. 

190 : Sélectionne la double taille et la surimpression. 

200,240: Affichage de texte en surimpression. 

Remarque: PROTECT permet également la surimpression par l'intermé¬ 
diaire des couleurs (voir § 3.1.3). 

VDU 22 Déplace le curseur d'un espace vers la gauche, sans effacement. 

VDU 23 Replace le curseur dans le coin supérieur gauche de la fenêtre 
définie par WINDOW. Équivalent à VDU 16 si la fenêtre occupe la 
totalité de l'écran. 

VDU 24 Sélectionne la double taille (en hauteur) pour les caractères. 

REMARQUE: Les coordonnées de PRINT sont altérées par ce mode. La 
position d'écriture verticale standard va de 5 à 115 par pas de 10. Les 
coordonnées horizontales restent identiques. 

VDU 25 Annule le mode double taille. 

VDU 28 Déplace le curseur en mode texte de trois pixels vers le haut. 
VDU 29 Déplace le curseur de trois pixels vers le bas. 

Exemple : 

10 CL S 

20 FOR 1 = 1 TC) 10 
30 PRINT"A"1 
40 VDU 29 
50 NEXT I 

VDU 30 Efface la ligne courante vers la droite, à partir de la position du 
curseur. 

VDU 31 Place le curseur au début de la ligne suivante, sans effacer celle-ci. 
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REMARQUES GÉNÉRALES : 


— Certains codes VDU sont équivalents à des instructions Basic. Leur 
intérêt réside dans la possibilité de placer sur une seule ligne de 
programme une suite de codes, réalisant plusieurs commandes 
enchaînées: VDU 2,0,1,7,4,24 sélectionne un écran en blanc sur noir, 
l'efface, et passe en mode double hauteur. 

— Les codes 10, 12 et 22 permettent la gestion des déplacements du 
curseur par programme dans trois directions, et correspondent aux 
codes générés par les trois flèches du clavier: 

| 10 correspond à VDU 10 

— 22 correspond à VDU 22 

— 12 correspond à VDU 12 

Le déplacement du curseur vers le haut ne correspond pas à un code VDU, 
mais une lecture du code de la touche j renvoie la valeur 1 1. On peut donc 
la traiter par le Basic pour réaliser une fonction équivalente : Il suffit d'écrire 
VDU 28,28,28,5 chaque fois qu'un code 1 1 est lu au clavier. 

Exemple : 

Ce programme montre les différentes possibilités d'affichage offertes par 
VDU en noir et vert (mode TEXT) : Vidéo inverse, soulignement, 
surintensité. 

100 TEXT 

lit» VDU 1,7,4 

130 FOR 1 = 1 TO 840 

140 1F 1=121 THEN VDU 18 

ISO IF 1=281 THEN VDU 18 

160 IF 1=401 THEN VDU 14,21 

170 1F 1=560 THEN VDU 15,21 

ISO IF 1=681 THEN PROJECT 0 

190 F'R I NT " A " ! 

200 NEXT I 
210 PRQTECT MAGENTA 
220 VDU 1,4 
230 END 


Explications : 

100,120: Initialisation. VDU 1,7 est sans effet en mode TEXT (voir 
§ 3.1.3). 

130,200: Boucle d'affichage, incluant: 
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140 

150 

160 

170 

180 


Vidéo inverse. 

Annule ce mode. 

Soulignement par affichage du curseur en mode surimpression. 
Annule ce mode. 

PROTECT 0 valide le VDU 1,7 de la ligne 1 10 (surintensité par 
utilisation d'une couleur plus claire). 


210,220: Retour au mode TEXT, sans effacer l'écran. 


3.1.2. L'exploitation de WINDOW 


Comme nous l'avons vu au paragraphe 1.4.2, WINDOW sert à redéfinir 
complètement les dimensions de l'écran en mode texte, étant entendu 
qu'un affichage standard correspond à: 

WINDOW 3,123,5,245. 

Une fois WINDOW exécuté, les instructions PRINT agissent à l'intérieurde 
la fenêtre, et le scrolling intervient au bas de celle-ci. Il est à noter que la 
redéfinition de WINDOW n'affecte pas les données présentes à l'écran. 


Exemple : 

100 REM FENETRE 
110 VDU 1,7,2,0 
120 WIND0W 3, 123,5,245 
130 CLS 

140 FOR 1=1 TO 960 
150 PRINT "A"? 

160 NEX T I 

170 WINDOW 33,93,45,205 

ISO VDIJ 23 

190 VDU 18 

200 FOR 1=1 TO 18 

210 PRINT 

220 NEXT I 

230 VDU 23 

240 PRINT"FENETRE TEXTE" 

250 PRINT© 33,65 

260 FOR 1=1 TO 10 

270 PRINT"INDEPENDANTE 11 

230 NEXT I 

290 END 
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Explications : 

110 : Sélectionne les couleurs de l'affichage (voir §3.1.3). 

120 : Initialisation de WINDOW. 

130,160: Remplit l'écran avec le caractère "A". 

170 : Création d'une fenêtre. 

180,190: Placement du curseur dans la fenêtre et sélection de la vidéo 
inverse. 

200,220: Nettoie le contenu de la fenêtre. 

230 : Le curseur est replacé dans le coin supérieur gauche de la 

fenêtre. 

240,280: Impression d'un texte. 

Remarques : 

— L'instruction CLS efface tout l'écran. Pour effacer uniquement le 
contenu d'une fenêtre, il faut utiliser un sous-programme qu'on appelle 
avec PROC EFFACER (X): 

60000 DEERE:OC: EFFACER ( X > 

60010 VDU 23 
6O020 FOR N- 1 Tu X 
60030 VDU 30,31 
6004O NEXT N , 

60050 ENDPROC 

La variable X représente le nombre de lignes de la fenêtre, c'est-à-dire 
la différence entre le quatrième et le troisième paramètre de WINDOW 
que divise 10. 

— Il est possible d'écrire à l'extérieur d'une zone définie par WINDOW en 
utilisant l'instruction PRINT VDU 23 replace ensuite le curseur à 
l'intérieur de la fenêtre. 

— Les paramètres de WINDOW doivent être entrés tous les quatre à 
chaque utilisation de cette instruction. On peut éviter cette opération 
fastidieuse en écrivant directement dans les adresses-mémoire qui 
contiennent ces paramètres: 

25174: Bord gauche de l'écran. 

25175: Bord droit de l'écran. 
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25176: Bord supérieur. 

25177: Bord inférieur. 

On peut modifier une seule des adresses sans provoquer d'erreur: 
POKE 25174,42 déplace le bord droit de l'écran uniquement. De 
même, on peut lire ces adresses avec PEEK pour connaître les dimen¬ 
sions de la fenêtre : 

1© FOR 1= 25174 70 25177 
20 7PEEK ; I > 

30 NE XI T 


Exemple : 

Sous-programme d'effacement de fenêtre s’adaptant automatiquement 
aux dimensions existantes: 

60000 DE FF'R OC EFFACER 
60010 VDU 23 

60020 L.-~1 NT ( ( PEEK < 25177 ) PEEK < 25176 ) ) / 10 ) 

60030 FOR N™ 1 70 l_, 

60040 VDU 30,31 
60050 NEX7 N 
60060 ENDF'ROC 


3.1.3. La couleur du Lynx 
Organisation mémoire 

Le rangement des couleurs en mémoire suit des règles très particulières: 
Les trois couleurs de base, rouge, bleu et vert sont rangées dans trois 
"banques" de 8K., situées dans les pages-mémoire 2 et 3 (voir memory 
map, § 2.3). L'apparition d'une de ces trois couleurs à l'écran s'obtient en 
écrivant les données dans les banques correspondantes. C'est en mélan¬ 
geant ces diverses couleurs entre elles que l'on accède aux huit teintes 
disponibles. 

JAUNE =ROUGE+VERT 
MAGENTA = BLEU + ROUGE 
CYAN = VERT+BLEU 

BLANC = ROUGE+VERT+BLEU 

NOIR = AUCUNE COULEUR 
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Trois pointeurs contiennent l'adresse de début en mémoire des trois 
banques. Il s'agit de : 

DPEEK (25230): Page 2, couleur Bleu. 

DPEEK (25232): Page 2, couleur Rouge. 

DPEEK (25234): Page 3, couleur Verte. 

Ces pointeurs peuvent servir à modifier l'emplacement d'une banque à 
l'intérieur de sa page-mémoire. Par exemple: 

ÎO B=DPEEK(25230),R-DPEEK(25232) 

20 DPOKE 25230,R 
30 DPOKE 25232,B 

Ce petit programme intervertit le bleu et le rouge pour les instructions du 
Basic Lynx (1 sélectionne le rouge et 2 le bleu). 

Enfin, une banque supplémentaire de 8K., nommée "Vert alternatif” et 
démarrant à l'adresse 40960 sur la page 3, peut servir à créer plusieurs 
pages-écran en mode monochrome noir et vert. Cette méthode est décrite 
ci-après en même temps que l'instruction TEXT. 


Instructions agissant sur la couleur 
INK 

Syntaxe: INK C 

INK <Nom couleur> 

Application : Sélectionne la couleur d'écriture, en mode texte ou graphique. 
Les huit couleurs peuvent apparaître simultanément à l'écran, et sont indé¬ 
pendantes du fond sur lequel elles s’affichent. C représente un numéro de 
couleur, compris entre 0 et 7. On peut également associer INK au nom des 
couleurs en Anglais, sans l'inclure entre guillemets: 


Numéro 

Nom 

Couleur 

Numéro 

Nom 

Couleur 

0 

BLACK 

NOIR 

4 

GREEN 

VERT 

1 

BLUE 

BLEU 

5 

CYAN 

BLEU CIEL 

2 

RED 

ROUGE 

6 

YELLOW 

JAUNE 

3 

MAGENTA 

ROSE 

7 

WHITE 

BLANC 


95 



Remarques: 

— INK est à la fois une instruction et une fonction. PRINT INK retourne le 
code de la couleur valide. 

— INK ne modifie pas les couleurs déjà affichées, la couleur ne devient 
active que pour les affichages suivants. 

— INK est équivalent à VDU 1. 


PAPER 

Syntaxe : PAPER C 

PAPER <Couleur> 

Application : PAPER spécifie la couleur du fond de l'écran. Son emploi suit 

les mêmes règles que INK. 

Remarques : 

— Pour changer la couleur de tout l'écran, il faut faire suivre PAPER de 
CLS. 

— On peut associer PAPER à PRINT <ÿ> pour modifier la couleur d'une 
seule ligne d'écran. 

— Sur un moniteur noir et blanc, les couleurs apparaissent comme six 
niveaux de gris. 

— Comme INK, PAPER est à la fois une fonction et une instruction qui 
renvoie la couleur sélectionnée pour le fond avec PRINT PAPER. 


Exemple : 

Ce programme change la couleur de l'écran, ligne par ligne: 

50 INK 7 
100 PAPER 0 
110 A-0 
120 CLS 

130 FOR 1=0 TO 230 STEP 10 
140 PAPER A 
150 PRINT© 3,1 
IS 0 A=A +1 

170 IF A=8 THEN A-0 
ISO NEXT I 
190 PAPER 0 
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On peut utiliser la fonction PAPER pour imprimer les numéros des 
couleurs, en ajoutant: 


PROTECT 

Syntaxe : PROTECT <couleur> 

Application : Désactive la banque de couleur spécifiée. <couleur> peut être 
un numéro ou un nom, comme pour INK et PAPER. Une fois désactivée, la 
couleur ne peut plus être utilisée pour écrire. Toute portion de l'écran 
contenant cette couleur ne peut plus être effacée, même par CLS. 
PROTECT 0 réinitialise le mode standard du Lynx. 

Remarques: 

— Si une couleur de l'écran provient du mélange de deux autres, CLS 
efface celle des deux dont la banque n'est pas désactivée par 
PROTECT. 

— On peut protéger une couleur composée, dans ce cas les deux banques 
concernées sont désactivées. 

— Si l'on tente d'écrire dans une couleur composée, dont l'une des 
primaires est désactivée, seule apparaît à l'écran la couleur non 
protégée. 

— PROTECT 7 désactive simultanément les trois banques. 

— L'emploi de PROTECT accélère la vitesse d'affichage. Si deux banques 
de couleurs sont désactivées, celui-ci est à peu près deux fois plus 
rapide (ce qui n'est pas un luxe I). 

— Comme lors de l'utilisation du code VDU 21 de surimpression, on peut 
grâce à PROTECT écrire à l'écran sans perturber l'affichage existant 
(graphique ou texte). 

Exemple 1 : 

Ce programme remplit l'écran, puis protège son contenu de toute tentative 
d'effacement : 
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100 REM PROJECT 
110 PAPER 0 
120 CLS 
130 INK 2 

140 FOR 1=1 TO 96Ô 
150 PRINT"A"; 

160 NEXT I 
170 PROTECT 2 
180 INK 7 
190 VDü 24 

200 PRINT@ 3,60;"TEXTE EN SURIMPRESSION"; 
210 VDU 25 

220 PRINT8 3,235;"FIN"; 


Une couleur d'affichage est spécifiée (2-Rouge), l'écran est rempli de "A" 
et la couleur 2 désactivée. On demande ensuite une autre couleur (7- 
Blanc), et un petit message imprimé en surimpression pour illustrer le 
procédé. 

Remarque: PROTECT est particulièrement adapté au mélange texte/gra¬ 
phique, voyez paragraphe 4.1.4. 


Exemple 2 : 

Cet autre exemple montre comment on peut employer PROTECT pour 
effacer sélectivement le contenu de l'écran : Tous les caractères non proté¬ 
gés sont supprimés, ceux dont la banque de couleur est désactivée restant 
affichés. 

100 REM EFFACEMENT SELECTIF 
110 WINDOW 3,123,5,245 
115 PAPER O 
120 CLS 

130 FOR 1=1 TO 114 
140 FOR J=1 TO 7 
150 INK J 
160 PRINT"A”; 

170 NEXT J 
180 NEXT I 
190 INK 7 

200 WINDOW 3,123,215,245 
210 VDU 23 

220 INPUT"LAQUELLE DES SIX COULEURS DESIREZ-VOUS_PROTEGER 

(1-6) ";C 

230 IF 07 OR C<1 THEN GOTO 210 

280 PROTECT C 

290 CLS 

300 PROTECT 0 

320 PR I N1 U 3,235; 
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Explication : 

120,180: Remplissage de l'écran, dans toutes les couleurs disponibles. 
200,230: Choix de la couleur à protéger. 

280,290: Protection de la couleur et effacement de l'écran. 

TEXT 

Syntaxe : TEXT 

Application : Cette instruction effectue en série les commandes suivantes: 
PROTECT 0, INK 4, PAPER 0, CLS, PROTECT 3. L'écran est effacé, et deux 
couleurs désactivées. L'affichage en vert sur noir est deux fois plus rapide 
qu'en mode normal. L'utilisation de TEXT est particulièrement adaptée à la 
visualisation sur un moniteur monochrome. 

Remarques: 

— PROTECT 0 annule ce mode. 

— En TEXT, l'utilisation de deux pages-écran séparées est rendue possible 
par l'intermédiaire de la banque de couleur "vert alternatif” (voir 
exemple 2). 

Exemple 1 : Comparaison des vitesses d'affichage, en mode normal et 
en mode TEXT. 

100 REM texte: 

105 PROTECT 0 
110 VDIJ 2,0,4,1,7 

120 N== 1 

140 FOR 1=1 TO 960 
150 PEINT"A"; 

160 NEXT I 

165 IF N=2 THEN END 

170 PRINT® 3,225;"POUR COMPARER AVEC LA VITESSE EN MODE TEXT, 
TAPEZ UNE TOUCHE"; 

ISO A=GETN 
190 TEXT 

200 N=2 
210 GOTO 140 

Exemple 2 : Constitution de deux pages-écran. 

Nous avons vu dans le paragraphe 3.1.3 qu'il existe une quatrième banque 
de couleurs, appelée "vert alternatif”, et située dans la même page- 
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mémoire que le vert à l'adresse 40960. On peut, par l'intermédiaire du 
pointeur de la banque "vert", forcer le stockage des données destinées à 
cette dernière dans la banque vert alternatif. On disposera de cette manière 
de deux écrans, en affichant au choix le contenu de l'une ou l'autre banque. 
Ce choix s'effectue à l'aide du port 128 du Z 80. 

Voici la méthode à suivre: 

TEXT sélection de l'affichage en vert sur noir. 

DPOKE 25234,40960 détourne les données destinées à l'écran vers la 

banque vert alternatif; le curseur n'est plus affi¬ 
ché à l'écran. 

ÉCRITURE PAGE 2 (Sans la voir) 

DPOKE 25234,49152 resélectionne l'affichage standard (c'est-à-dire 

l'envoi des données vers la première page- 
écran). Rappelons que 49152 est la valeur 
normalement retournée par DPEEK (25234). 

OUT 128,16 fait apparaître la deuxième page-écran, qui 

disparaît aussitôt en mode direct : Seul, le mode 
programme permettra de l'exploiter 
complètement. 

OUT 128,4 retour à la première page-écran (inutile en 

mode direct). 

Un exemple est indispensable pour bien comprendre le principe de 
fonctionnement : 

100 REM PAGE; 2 
no il:at 

120 DPOKE 25234,40960 
130 vDtJ 4,24 

150 PRINT"CECI EST LA DEUXIEME PAGE-ECRAN" 

160 vDU 25 

17© PRINT® 3,200;"POUR REVENIR A LO AFF ICHAGE NORMAL, TAPEZUNE 
TOUCHE" 

180 DPOKE 25234,49152 
190 VDIJ 23,24 

210 PRINT"PAGE-ECRAN NORMALE" 

220 VDU 25 

230 PRINT® 3,200;"POUR AFFICHER LA DEUXIEME PAGE, TAPEZ...UNE 
TOUCHE" 

240 X=GETN 
250 OUT 128,16 
260 X=GETN 
270 OUT 128,4 
280 GOTO 240 
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Explication : 

110 : Sélection de l'affichage TEXT (vert sur noir). 

120 : Les données à afficher sont dirigées vers la deuxième page- 

écran. 

130 : Effacement de la deuxième page, et passage en mode double 

taille. 


150,170 

180 

1 90;230 
240,280 


Affichage d'un commentaire sur la deuxième page. 
Les données sont réorientées vers l'écran normal. 
Impression d'un commentaire sur la première page. 
Passage d'une page à l'autre par une saisie clavier. 


Remarques: 

— Tout envoi de données vers l'écran ayant pour effet de repasser à la 
première page, OUT 128,16 doit être suivi d'une suspension de l'affi¬ 
chage: Saisie clavier, calculs ou pause. 

—■ On peut imprimer indifféremment du graphique ou du texte sur les 
deux pages, l'écriture sur la page deux se faisant toujours "en 
aveugle ". 


3.1.4. L'éditeur 

On appelle " Éditeur" l'ensemble des fonctions disponibles au clavier pour 
la mise au point des programmes, ou des lignes de commandes. Celui du 
Lynx, assez performant, autorise l'insertion de caractères dans une ligne, la 
recopie de lignes de programme, et la gestion des déplacements du 
curseur. Précisons toutefois que nous avons à faire à un éditeur " de ligne " : 
Chaque ligne est chargée dans une mémoire-tampon appelée "buffer" 
avant sa prise en compte par la machine. 


Les commandes de l'Éditeur 

CONTROL E Sélection du numéro de ligne à éditer. La ligne demandée 
est chargée dans le buffer, et affichée à l’écran avec le 
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curseur sur le premier caractère. Si le numéro entré ne 
correspond pas une ligne existante, une erreur est 
provoquée. 


CONTROL Q Affiche le contenu du Buffer à l'écran (rappelle la dernière 
ligne éditée, ou la dernière commande entrée en mode 
direct). 


t 

I 

DELETE 

RETURN 


Déplace le curseur d'un espace vers la droite. 

Déplace le curseur d'un espace vers la gauche. 

Place le curseur au début de la ligne. 

Place le curseur à la fin de la ligne. 

Efface le caractère placé avant le curseur et déplace celui-ci 
d'un espace vers la gauche. 

Valide la ligne modifiée (le Buffer est recopié en mémoire). 


Remarques: 

— Le Lynx est toujours en mode insertion, et la frappe d'un caractère 
repousse d'un cran toute la ligne à droite du curseur. 

— Seule, l'instruction DEL <N° de ligne> permet la suppression de lignes 
de programme. 

Pour recopier une ligne de programme, il faut: 

• Taper CONTROL E, suivi du numéro de la ligne à recopier. 

• Remplacer le N° de la ligne par le nouveau. 

• Valider avec RETURN. 


3.1.5. La gestion de l'écran par les ports du Z 80 

Les ports 134, 135 et 137 du Z 80 sont les voies de passage vers l'écran 
du système d'entrées-sorties du Lynx. Une modification du statut de ces 
ports peut être employée pour agir sur le format de l'affichage vidéo. 
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PORT 137 


OUT 137,13 fait disparaître fugitivement l'écran. On peut s'en servir pour 
simuler un clignotement de l'affichage: 

ÎOO DEFPROC CLIGNOTEMENT (N, T) 

105 A=0 
110 WHILE A<N 
120 DUT 137,13 
130 PAUSE T 
140 VDU 14 
150 PAUSE T 
160 VDU 15 
165 A=A+1 
170 WEND 
180 EN DP'ROC 


Remarque: Le programme s'exécute par PROC CLIGNOTEMENT (N,T). N 
doit contenir le nombre de clignotements désiré, et T le temps les séparant. 


Explication : 

110: Boucle de N clignotements. 

120: Disparition de l'écran. 

130: Fixe en mode ' disparition" pour un temps T. 

140: Une opération d'affichage fait réapparaître le texte. 
150: Réinitialise le curseur en mode normal. 


PORT 134 

Ce port gère la position physique du texte par rapport aux limites de l'écran. 
Deux cas sont possibles: 

— Initialisation avec OUT 134,13 : 

Dans ce cas, OUT 135,X avec X compris entre 0 et 32, déplace tout le 
contenu de l'écran de gauche à droite jusqu'au retour à la position 
d'origine. Si X va de 0 à 224 par pas de 32, l'écran est déplacé de haut 
en bas sur sept lignes, ligne par ligne. 

— Initialisation avec OUT 134,7 : 

Cette fois, OUT 135,X avec X compris entre 1 et 68, déplace le 
contenu de l'écran de haut en bas par pas de trois pixels, jusqu'au 
retour à la position d'origine. 
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Remarque: On pourra se servir utilement de ces fonctions dans des jeux 
pour faire vibrer l'écran ou défiler du texte et des dessins (scrolling). 


Exemple : 

100 REM PORTS Z80 

119 (ILS 

120 PRINT"L’INSTRUCTION OUT AUTORISE L’UTILISATIONDIRECTE DES 
PORTS DU Z80 POUR :" 

130 PRINT 

140 PR INT"FA IRE DISPARAITRE L’ECRAN !" 

145 PAUSE 200O 
150 T=2 

160 PROC DISPARITION (T) 

170 PRINT 

180 PR INT"OU ENCORE CLIGNOTER..." 

190 T-25,N=20 

210 PROC CLIGNOTEMENT (N,T) 

22© PR INT 

230 PR IN T" L7 AFFICHAGE PEUT DEFILER EN TOUS SENS :" 

235 PAUSE 3000 
240 T=10 

250 PROC HORIZONTAL. (T) 

255 PAUSE! 3000 

260 PROC VERTICAL <T> 

270 PR INT 

275 PRINT"POUR LES JEUX, UNE EXPLOSION PEUT FAIRE TREMBLER 
L, ' ECRAN 11 

276 PAUSE 3000 
280 T-10 

290 PROC TREMBLOTEMENT < T > 

300 PR INT 

310 PRINT"OU MEME PROVOQUER UN SEISME 1 " 

315 PAUSE 2000 

330 PROC TREMBLEMENT TERRE (T) 

340 PR INT 

350 PR INT"TERMINE" 


360 

END 


1 000 

DE F PROC 

DIS F'A RITI ON 

1 0 1 0 

FOR 1=1 

TO T*1000 

1 020 

OUI 137. 

, 13 

1 030 

NE XI I 


1 040 

ENDPROC 


1 060 

DEF PROC 

CLIGNOTEMENT 

1070 

FOR 1=1 

TO N 

1 080 

OUT 137, 

, 13 

1 090 

PAUSE 10O*T 

1 1 1 0 

OUI 137, 

, 0 

1 1 1 5 

PAUSE 100*T 
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i 1 ME X I I 
1130 ENDPROC 

1150 DEFPROC HORIZONTAL (T) 

1160 DUT 134,13 

1170 FOR 1=1 TO 32 

1180 DUT 135,1 

1 .1 "0 PAUSE 100»T 

1210 NE' X T I 

1720 ENDPROC 

1240 DEFPROC VERTICAL LD 


i : 

? r : • 0 

ou r 

134, 

’7 

i. 

l’ôv) 

FOR 

I = 11 : 

J 10 6o 

1 270 

OUI 

135, 

i 

l: 

;80 

PAUSE 100*T 

i :: 

‘•00 

ne: xi 

' I 


i : 

> :i o 

F N DF 

•ROC 


i * 

r . 3 o 

DEFI" 

•ROC 

TREMBLOTEMENT 

i ::: 

140 

DUT 

134, 

, 13 

i: 

;.50 

FOR 

1 = 1 

TÜ T*10 

i ; 

:.60 

DUT 

135. 

, RAND(4) 

i 

’• 7 0 

NE XI 

i 


1 : 

'•00 

DUT 

135. 

i 0 

! : 

’.90 

EN DF 

• ROC 


1 x 

1 1 0 

DEFI 

'■RDC 

TREMBLEMENT F 

IX 

120 

DUT 

134, 

i 5 

IX 

1-40 

DUT 

135. 

, 44 

IX 

150 

PAIJS 

;t 200 

IX 

160 

DUT 

135. 

, 0 

1 X 

1 70 

DUT 

134, 

, 13 

l X 

190 

FOR 

I = 1 

TO T*10 

1 ; 

19 0 

DUT 

135, 

, RAND(B) 

11 

.•00 

P AU S 

SE 21 

50 

i: 

.1 0 

DUT 

135, 

, RAND(7)*32 

i 

j 2 o 

NE XI 

r i 


i 1 

730 

DUT 

135 

i 0 

U 

140 

ENDPROC 



Explication : Le programme utilise successivement les ports cités précé¬ 
demment, en les incluant dans des boucles paramétrées. On peut réutiliser 
n'importe laquelle de ces procédures dans un programme, en assignant à T 
et à N les valeurs désirées. 
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3.2. Les jeux de caractères 


3.2.1. Généralités 

Le Lynx possède deux jeux de caractères, composés comme suit: 

— Un jeu standard, correspondant à la norme Américaine ASCII et 
comprenant les caractères alphanumériques et les ponctuations. Leurs 
codes vont de 32 ("Espace") à 127 (2 e moitié de "copyright"), soit 
96 caractères. 

— Un deuxième jeu, composé de 26 mosaïques graphiques dont les 
codes sont compris entre 224 ("espace") et 249 (dernière partie du 
signe Lynx). 

— Enfin, une copie du jeu alphanumérique standard est accessible par les 
codes 128 à 223. 

Tous ces caractères peuvent s'obtenir par le clavier, CONTROL 1 agit 
comme une bascule et assigne aux touches une mosaïque graphique à la 
place du caractère normal. Une deuxième pression sur CRTL 1 réinitialise le 
clavier. 


3.2.2. La génération de caractères 

Les mosaïques graphiques et le jeu ASCII sont assez mal adaptés à l'écri¬ 
ture en Français, qui nécessite l'usage de minuscules accentuées; il en va 
de même pour les jeux sophistiqués, utilisant des caractères spéciaux tels 
que notes de musiques, cartes à jouer ou invaders. 

Ce chapitre a pour objet de pallier à ces carences, d'une part en expliquant 
le principe de création d'un caractère, et d'autre part à l'aide d'un 
programme très sophistiqué de reconfiguration des jeux. 

La manipulation de caractères implique l'accès direct en mémoire, selon 
quelques règles assez simples: 

Principes de fonctionnement 

Sur le Lynx, un pointeur informe le Basic de l'adresse en ROM où démarre 
la table des caractères, dont le code est supérieur à 128. En modifiant le 
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contenu de ce pointeur (GRAPHIC, voir § 2.4.3), on peut utiliser n'importe 
quelle zone de la mémoire vive pour y écrire ses propres caractères, 
auxquels on accédera par les mêmes codes. Le seul inconvénient est la 
perte des mosaïques graphiques habituellement accessibles au clavier. 

Un caractère est inclus dans une matrice de 6 x 10, chaque ligne horizon¬ 
tale de cette matrice correspondant à un codage en binaire sur un octet, 
dont seuls les six bits les moins significatifs sont utilisés. Chaque caractère 
est donc codé sur dix octets qui se suivent en mémoire. Un programme 
générateur réalise toutes les modifications d'un caractère en lisant et en 
écrivant dans les six adresses appropriées. 


Rappels sur la conversion Binaire-D6cimal 

Soit le nombre binaire B, avec B=XXXXXXXX, X ne pouvant prendre que la 
valeur 1 ou 0. Si l'on considère que le bit de gauche est le plus significatif, 
la valeur décimale D est égale à: 

D=X*2 7 +X*2 6 +X*2 5 +X*2 4 +X*2 3 +X*2 2 +X*2 Vx*2 0 

BIN permet un conversion directe, avec D=BIN(B). 

Exemple : 


Matrice 

A dresse 

Contenu décimal 

Contenu binaire 








798 

0 

00 000000 




# 




799 

4 

00 000100 



* 


# 



800 

10 

00 001010 


» 




« 


801 

17 

00 010001 


« 




« 


802 

17 

00 010001 


* 

* 

* 

• 

« 


803 

31 

00 011111 


* 




* 


804 

17 

00 010001 


# 




* 


805 

17 

00 010001 








806 

0 

00 000000 








807 

0 

00 000000 
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Explications : 

— Le caractère "A" est codé à partir de l'adresse 798 de la ROM. La 
fonction LETTER permet de connaître cette adresse en fonction du 
code du caractère: LETTER (<Code>). 

— L'adresse 798 correspond à une ligne vide de la matrice, et contient 
l'octet de valeur 0. 

— L'adresse 803 correspond à cinq points consécutifs de la 6 e ligne de la 
matrice, et contient l'octet de valeur 31 soit 00011111 en binaire. 

— Rappelons que le codage s'effectue de droite à gauche, en commen¬ 
çant par le bit de poids le plus faible. 

— Les deux bits de gauche sont inutilisés sur le Lynx. 


Création d'un caractère 

Il est possible de créer ses caractères sans passer par un programme 
complexe, en réservant au préalable une zone-mémoire juste suffisante 
pour les quelques caractères à définir. L'intérêt de ce procédé est que l'on 
peut redéfinir quelques caractères répondant à un besoin particulier dans 
un programme, sans être obligé de charger un jeu complet à chaque 
utilisation. 

Voici la marche à suivre: 

— Définir sur un papier les caractères, en dessinant leur matrice sous 
forme d'un damier de 6 x 1 0 , et en noircissant les cases correspondant 
au dessin de chacun d'entre eux. 

— Pour chaque caractère, on déduit le nombre binaire correspondant au 
contenu de chaque ligne horizontale de la matrice (0 pour une case 
blanche et 1 pour une case noire). 

— On calcule le nombre d'adresses (N) qu'il est nécessaire de réserver 
pour y placer les caractères: 

N=<nombre de caractères >*V& 

— Il faut déplacer le HIMEM du nombre d'adresses calculé, afin de placer 
les caractères dans une zone protégée : 

RESERVE HIMEM-N 
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— GRAPHIC doit ensuite pointer sur la zone réservée: 

DPOKE GRAPHIC,HIMEM 

Une fois cette opération effectuée, les codes de 128 à 249 correspon¬ 
dent aux adresses suivant HIMEM. Le jeu graphique n'est donc plus 
accessible, et le curseur clignotant (code 249) est remplacé par un 
caractère aléatoire. On peut restaurer un curseur avec: 

CCHAR 32*256+42. 

— Enfin, on doit entrer à partir de HIMEM, à l'aide de POKE, la conversion 
en décimal (BIN) du nombre binaire associé à chaque ligne horizontale 
de la matrice, adresse par adresse et caractère par caractère. 


Exemples : 

100 REM NOTE 


1 1 . 0 

CL S 


120 

RESER 

VE HIMEM-10 

130 

droit: 

GRAPHIC,HI 

140 

CCHAR 

256*32+35 

1 50 

160 

FOR I 

RE AD 

17.n1 r 

=0 TO 9 

R 

i c "tt erra ; i ".‘o i 

1 / 0 
.180 
135 

r Ur-.fc. 

ML XI 

GOTO 

L. t:. 1 1 ri h. \ .Lo ) 

1 

290 

190 

DATA 

000000 

200 

DATA 

0000 1 1 

210 

DATA 

0000 .1 0 

220 

DATA 

00001 1 

230 

DATA 

0000 1 0 

240 

DATA 

0 1 1 0 1 0 

250 

DATA 

1 1 1 1 1 0 

260 

DATA 

1111 00 

270 

DATA 

011000 

280 

DATA 

000000 

290 

REM D 

EMO 

300 

FOR I 

==1 TO 400 

310 

PR I NT 

CHR$<128); 

320 

NE X T 

C h. 1 T\ 

I 


Explications : 

120 : On décale HIMEM de dix adresses pour y placer le caractère. 

130 : GRAPHIC pointe sur la zone-mémoire démarrant à HIMEM. 
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140 : Le curseur est reconstitué. 

190,250: Les DATA successifs contiennent le dessin du caractère en 
binaire sur six bits (les deux bits les plus significatifs peuvent 
être omis). 

1 50,1 80 : Boucle lisant un à un les DATA avec READ. Les lignes de DATA 
sont converties en décimal par BIN, puis placées aux dix 
adresses correspondant au caractère de code 128. Rappelons 
que LETTER(C) renvoie la première adresse du caractère de 
code C. 


290,330: Affichage du caractère créé. 



Remarques: 

— RESERVE HIMEM-10 décale le HIMEM de 10 adresses à chaque utili¬ 
sation du programme, ce qui peut se solder par une "OUT OF 
MEMORY ERROR " après un certain nombre d'exécutions. Dans un 
programme opérationnel, il vaut mieux remplacer la ligne 120 par: 


120 RESERVE 65518 


(Lynx 96K.) 
(Lynx 48K.) 


110 


120 RESERVE 40940 





— On peut éviter la perte des mosaïques graphiques, en réservant suffi¬ 
samment de mémoires pour tous les caractères dont le code est 
compris entre 128 et 249, puis en recopiant le jeu alternatif dans cette 
zone réservée. C'est la méthode utilisée dans le programme 
GENECAR: 

100O RESERVE HIMEM--1219 
1010 DF’OKE GE ARH IC, HIMEM 
1020 0=HIMEM 
1030 FOR 1=463 TO 1687 
1040 FDKE J , F'EEK ( I ) 

1050 J=J + 1 
1060 NEXI I 


Explication : 

Ce programme copie le contenu des adresses 468 à 1 687 (partie de la 
ROM contenant les caractères de code 1 28-249) dans la zone réservée au- 
dessus de HIMEM. Le curseur en vidéo inverse est automatiquement réini¬ 
tialisé. Les caractères sont tous modifiables et remplaçables, LETTER 
renvoie leurs premières adresses. Sur le Lynx96K., on peut remplacer 
HIMEM-1219 (ligne 1000) par 64300 et par 39700 sur la version 48K. 


3.2.3. Le programme GENECAR 

Les procédures de modifications de caractères exposées ci-dessus sont 
idéales lorsque vous n'avez à en redessiner que quelques uns, pour applica¬ 
tion particulière. Mais si vous voulez reconfigurer un jeu complet, puis le 
sauvegarder sur K7 pour réutilisation ultérieure, il est indispensable de 
passer par un programme plus complet. Voici ce que vous pourrez faire 
avec GENECAR: 

1. Afficher à l'écran le jeu complet, ainsi qu'une matrice agrandie. 

2. Choisir un caractère du jeu, en se déplaçant dans celui-ci avec un 
curseur spécial. 

3. Transférer le caractère choisi dans la matrice, le modifier en dessinant 
avec les quatre flèches, puis replacer ce caractère n'importe où dans le 
jeu. 



GENERATEUR DE CARACTERES © BURP 


! O *+, /01 £3456739: ; < => ?<?ABCDEFG 

HI JKLMNOPuRSTUUWXYZE"■-] iî Êabcdefqh i ikLrnno 

Pq r stu m xyz-<r t © 1 "■ | ■T A fUJlIII^ÔTIX 

CODE DU CARACTERE SOUS LE CURSEUR : 132 
SA PREMIERE ADRESSE EN MEMOIRE : 64340 





BARRE 

RETURN 

C 

DEL 

S 

L 

Q 

J 


MOUU. MATRICE 
MOUU. JEU CAR 
ON- OEF POINT 
MATRICE-* JEU 
JEU-*M ATR I CE 
EFFACER MAT. 
SAUE JEU--K7 
LOAD JEU DU K7 
QUI T 

RESET JEU 


4 . Transférer des caractères d'un emplacement à l'autre dans le jeu. 

5 . Créer entièrement un caractère, puis le placer à n'importe quel endroit 
du jeu. 

6 . Sauvegarder et recharger un jeu sur K7. 

7 . Sortir du programme sans perdre le jeu. 

Remarques: 

— Une fois le jeu sauvegardé, on peut le recharger à partir d’un 
programme Basic en entrant (Lynx96K.): 

10 RESERVE 64300 
20 DPOKE GRAPHIC,HIMEM 
30 MLOAD"JEU" 

Sur le Lynx 48K., il faut écrire: 

10 RESERVE 39700 
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Le jeu est chargé dans une zone au-dessus de HIMEM, et utilisable par 
l'intermédiaire des codes compris entre 128 et 249. 

— La modification par GENECAR des mosaïques graphiques autorise la 
création de caractères directement accessibles au clavier par CTRL 1, à 
la place de l'alphabet standard. 

— Sur la version 48K. du Lynx, on doit remplacer les lignes 220, 1060, 
2680 et 2980 de GENECAR par: 

220 RESERVE 39700 
1060 LET c=128,a=39700 
2680 PRINT "TAPEZ: D 9B14 9FCE 0 'jeu'" 

2980 P=3,p=35,c=128,N=3,n=35,a--39700 


Commandes disponibles: 


<> 

C 

RETURIM 


I t“ 

BARRE 

DELETE 

S 

L 

Q 

J 


Déplacements dans le jeu de caractères. 

Copie dans la matrice le caractère pointé par le curseur "jeu", 

Copie à la position du jeu pointée par le curseur le caractère se 
trouvant dans la matrice. 

Déplacements dans la matrice. 

Trace/efface un point de la matrice (bascule). 

Efface la matrice. 

Sauvegarde sur K7. 

Chargement d'un jeu sur K7. 

Quitte le programme en conservant le jeu créé en mémoire. 
Réinitialise le programme avec le jeu standard. 
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100 REM GENECAF: EVRP 
HO GOSUB LABEL AIDES 
120 GOSUB LABEL INITIALISATION 
130 GOSUB LABEL VARIABLES 
140 GOSUB LABEL ECRAN 
150 GOSUB LABEL EFFACER CADRE 
160 GOSUB LABEL INSCRIPTIONS 
170 GOSUB LABEL AFFICHAGE JEU 
180 GOSUB LABEL INSCRIPTION 2 
190 GOSUB LABEL BOUCLE 
2O0 END 

210 LABEL INITIALISATION 

220 RESERVE 64300 

230 DPOKE GRAPHIC,HIMEM 

240 LET J=HIMEM 

250 FOR 1=468 TO 1687 

260 F'OKE J, F'EEK ( I ) 

270 LET J=J+1 
280 NEXT I 

290 CCHAR 256*32+239 
300 RETURN 
310 LABEL ECRAN 
320 PROTECT 0 


330 

PAPER 

A 



340 

WINDOW 3 

123, 

350 

CLS 




360 

PAPER 

B 



370 

PR INT 

8 

3 

5 

380 

F’RINT 

8 

~r 

25 

390 

PR INT 

8 

3 

35 

400 

F'RINT 

8 

T 

45 

410 

PR INT 

8 

3 

65 

420 

F'RINT 

8 

-y 

85 

430 

PAPER 

A 



440 

INK D 





450 FOR J=125 TO 225 STEP 10 
460 FOR 1=5 TO 41 
470 DOT I, J 

480 NEXT I 
490 NEXT J 

500 FOR J=5 TO 41 STEP 6 

510 FOR 1=125 TO 225 

520 DOT J, I 

530 NEXT I 

540 NEXT J 

550 PROTECT B 

560 RETURN 

570 LABEL EFFACER CADRE 
580 PROTECT 0 
590 PAPER B 

600 WINDOW 50,123,125,225 

610 VDU 23 

620 FOR 1=1 TO 10 
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630 PRINT 

640 NEXT I 
650 PROTECT B 
660 RETURN 

670 LABEL INSCRIPTIONS 
680 INK D 

690 PRINT @ 15, 15?"GENERATEUR DE CARACTERES 
700 VDU 23 


BVRP 1 


710 PRINT CHR$(123 
720 PRINT "<> 

730 PRINT "BARRE 
740 PRINT "RETURN 
750 PRINT "C 
760 PRINT "DEL 
770 PRINT "S 
780 PRINT "L 
790 PRINT "D 
800 PRINT "J 
810 PROTECT D 
820 INK 7 


) ;CHF:$< 124) ;CHR$ (125) ;CHR$ (126) ; 
: MOUV. JEU CAR" 

: ON/OFF POINT" 

: MATRICE";CHR*(123);"JEU" 

: JEU";CHR* <123);"MATRICE" 

: EFFACER MAT." 

: SAVE JEU/K7" 

: LOAD JEU DU K7" 

: OUÏT" 

: RESET JEU"; 


830 PRINT @ P,p;CHR*<239>; 

840 GOSUB LABEL BRUIT 
850 RETURN 
860 LABEL BOUCLE 
870 PRINT @ T,t:T$ 

880 LET X=GETN 
S90 BEEF' 100,10,63 

900 IF X=44 OR X=46 THEN GOSUB LABEL JEU 

910 IF X=74 OR X=106 THEN GOSUB LABEL RESET 

920 IF X=81 OR X =113 THEN GOSUB LABEL QUIT 

930 IF X=67 OR X=99 THEN GOSUB LABEL COPY 

940 IF X=S THEN GOSUB LABEL DELETE 

950 IF X=13 THEN GOSUB LABEL RETOUR JEU 

960 IF X=10 OR X=11 OR X=12 OR X=22 THEN GOSUB LABEL 

970 IF X=32 THEN GOSUB LABEL ON/OFF 

980 IF X=83 OR X=115 THEN GOSUB LABEL SAVE 

990 IF X=76 QR X=108 THEN GOSUB LABEL LOAD 

1000 GOTO 380 

1010 LABEL VARIABLES 

1020 LET m=3,M=120,h=35,H=55 

1030 LET F'=3, p=35 

1040 LET A=0,B=1,C=2,D=3 

1050 LET N=F',n=p 

1060 LET c=128,a=64300 

1070 DIM C(10) 

1080 LET T=3, t=125, F=3, -f = 125 
1090 LET T$=CHR$(46) 

1100 DIM T«6*10! 

1110 FOR 1=1 TO 10 
1120 FOR J=1 TO 6 
1130 LET T(J*10-I)=0 
1140 NEXT J 
1150 NEXT I 


: MOUV. MATRICE 


CREATION 
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1160 RETURN 

1170 LABEL AFFICHAGE JEU 

1180 PROTECT O 

1190 PROTECT B 

1200 INI D 

1210 LET 5=128,s=35 

1220 REF'EAT 

1230 PR INT @ 3,s; 

1240 FOR I=S TO S+39 
1250 F’RINT CHF:$ « I ) ; 

1260 NEXT I 

1270 LET S=S+4Ô,s=s+10 

1280 UNTIL s=65 

1290 FRI NT @ 3,75;"CODE DU CARACTERE SOUS LE CURSEUR 
1300 PRINT @ 3,95;"SA PREMIERE ADRESSE EN MEMOIRE 
1310 PROTECT D 
1320 INK 7 

1330 PRINT @ p,p;CHR$!239>; 

1340 RETURN 

1350 LABEL INSCRIPTION 2 
1360 F’RINT 0 108, 75; c 
1370 PR INT @ 99,95;a 
1380 RETURN 
1390 LABEL JEU 

1400 IF N0TX=46 THEN GOTO 1470 
1410 IF F'=M THEN GOTO 1440 
1420 LET F-P+3 
1430 GOTO 1520 

1440 IF p=H THEN LET p=h,P=m 

1450 ELSE LET p=p+10,P=m 

1460 GOTO 1520 

1470 IF F'=m THEN GOTO 1500 

1480 LET F-P-3 

1490 GOTO 1520 

15O0 IF p=h THEN LET p=H,F'=M 
1510 ELSE LET p=p-10,P=M 
1520 FF:INT @ N, n; CHF:$ (32) ; 

1530 F'RINT c* p,p;CHR*<239); 

1540 LET N=F,n=p 

1550 LET K=<p-35)/10,c=127+<P/3)+<K#40),a=LETTER(c) 

1560 GOSUB LABEL INSCRIPTION 2 

1570 RETURN 

1580 LABEL CREATION 

1590 IF X =11 AND N0Tt = 125 THEN LET t=t-10 
1600 IF X=10 AND N0Tt=215 THEN LET t=t+10 
1610 IF X = 12 AND NOTT=18 THEN LET T=T+3 
1620 IF X=22 AND N0TT=3 THEN LET T=T-3 
1630 LET I=(f-115)/10,J=F/3 
1640 IF T(J*10-I)=0 THEN FRINT @ F,F;" "; 

1650 ELSE F’RINT @ F, F ; CHF:$ (239) ; 

1660 LET 1=(t — 115)/10,J=T/3 

1670 IF T(J*10-I>=0 THEN F’RINT @ T,t;T$ 

1680 ELSE F'RINT « T, t;CHR* (242) 5 
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1690 LET F=T, -f =t 

1700 RETURN 

1710 LABEL ON/OFF 

1720 LET I=(t-115)/10,J=T/3 

1730 IF T(J*10-I>=0 THEN BOTO 1770 

1740 F'RINT @ T,t;T$ 

1750 LET T(J«10-I)=0 
1760 RETURN 

1770 PRINT ë T,t;CHR$(242) 

17B0 LET T (.7*10-1 ) =1 

1790 RETURN 

1800 LABEL DELETE 

1810 FOR 1=1 TO 10 

1820 F’RINT @ 3,<I*10)+115:" 

1830 FOR J=1 TO 6 
1840 LET T(J#10-I>=0 
1850 NEXT J 
1860 NEXT I 

1870 LET T=3, t = 125,F=3,f = 125 
1880 F'RINT @ T,t;T$ 

1890 BEER 100,10,63 

1900 RETURN 

1910 LABEL COPY 

1920 GOSUB LABEL DELETE 

1930 LET K=(p-35)/10 

1940 LET c=127+(P/3)+(K*40) 

1950 LET a=LETTER(c) 

I960 FOR 1=1 TO 10 

1970 LET C(I) =F'EEK (a+I-1 ) 

1980 LET R=32 

1990 FOR J=1 TO 6 

2000 LET T(J*10-I)=C(I) DIV F: 

2010 IF T (J* 10-1 ) =1 THEN F'RINT @ J*3,<I*10)+115;CHR*(239) 

2020 IF T(J *10-1)=1 THEN BEEF 100,10,63 

2030 LET C! I)=C(I) MOD R,R=R/2 

2040 NEXT J 

2050 NEXT I 

2060 IF T ( 1*10-1 ) =1 THEN F'RINT ë T, t : CHR$ (242) ; 

2070 RETURN 
2080 LABEL RETOUR JEU 
2090 BEEF 100,10,63 
2100 FOR 1=1 TO 10 
2110 LET R=0 

2120 FOR J=1 TO 6 

2130 LET R=R+(T(J*10-I)*2**(6-J)) 

2140 NEXT J 

2150 POKE (a+I-1),R 

2160 NEXT I 

2170 GOSUB LABEL AFFICHAGE JEU 

2180 BEEF 100,10,63 

2190 RETURN 

2200 LABEL AIDES 

2210 WINDOW 3,123,5,245 
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CN f-4 


2220 PRÜTECT O 
2230 PAPER 1 
2240 CLS 
2250 INK 7 
2260 VDU 24 

2270 PRINT @ 39,5;"GENECAR BVRP"; 

2280 PRINT 
2290 VDU 25 

2300 GDSUB LABEL BRUIT 
2310 PRINT @ 3,55; 

2320 PRINT "GENECAR EST UN UTILITAIRE PERMETTANT LA CREATION D’UN JEU PERSONNA 
LISE, OU’ON PEUT UTILISER EN PLUS DU JEU NORMAL. ON Y ACCEDE GRACE AUX CODES COM 
PRIS ENTRE 123 ET 247." 

2330 PRINT 

2340 PRINT "ON PEUT MODIFIER, RECREER OU SIMPLEMENT DEPLACER DES CARACTERES DU J 
EU AFFICHE. POUR CE FAIRE, UNE MATRICE DE 6X10 SERT DE TRAME POUR LA VISUALISAIT 
ON DE TOUS LES POINTS DU CARACTERE." 

350 PRINT 

360 PRINT "UNE FOIS LE JEU CREE, UNE PROCEDURE PERMET DE QUITTER LE PROG 
RAMME POUR L’UTILISER DIRECTEMENT OU SA SAUVEGARDE SUR K7." 

2370 PRINT 

2380 PRINT "POUR COMMENCER, 1APE2 UNE TOUCHE..." 

2390 LET Z-GETN 
2400 GOSUB LABEL BRUIT 
2410 CLS 
2420 VDU 24 

2430 PRINT @ 3,50; "PATIENCE." 

2440 VDU 25 

2450 RETURN 

2460 LABEL OUÏT 

2470 GOSUB LABEL BRUIT 

2480 WINDOW 3,123,5,245 

2490 F'ROTECT 0 

2500 PAPER 0 

2510 CLS 

2520 INK 7 

2530 NEW 

2540 END 

2550 LABEL LOAD 

2560 GOSUB LABEL EFFACER CADRE 
2570 PRINT "POSITIONNER LA K7 " 

2580 PRINT 

2590 PRINT "METTEZ SUR PLAY ..." 

2600 PRINT 
2610 MLOAD "JEU" 

2620 GOSUB LABEL EFFACER CADRE 
2630 GOSUB LABEL INSCRIPTIONS 
2640 GOSUB LABEL AFFICHAGE JEU 
2650 RETURN 
2660 LABEL SAVE 

2670 GOSUB LABEL EFFACER CADRE 

2680 PRINT "TAPEZ:D FB2C FFF6 0 ’JEU’"; 

2690 PRINT 
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2700 PRINT "METTEZ LE K7 EN RECORD" 

2710 PRINT "PUIS VALIDER PAR . RETURN>"; 
2720 PRINT 

273.0 PRINT "POUR LE PROGRAMME TAPEZ 
2740 PRINT 

2750 PRINT "J PUIS <RETURN>" 

2760 PRINT "PUIS GOTO 2810" 

2770 INK D 

2780 WINDOW 50,123,215,225 
2790 V'DU 23 
2800 MON 

2810 WINDOW 50,123,125,225 
2820 INK 7 

2830 GOSUB LABEL EFFACER CADRE 

2840 GOSUB LABEL INSCRIPTIONS 

2850 RETURN 

2860 LABEL BRUIT 

2870 FOR J—0 TO 10 

2880 BEEP RAND(50)+5O,40,63 

2890 NEX T J 

2900 RETURN 

2910 LABEL RESET 

2920 PRINT @ P,p;CHR* <32); 

2930 PRINT il 108,75;" 

2940 PRINT il 99,95;" 

2950 GOSUB LABEL BRUIT 

2960 GOSUB 240 

2970 GOSUB LABEL BRUIT 

2980 LET P=3,p=35,c=128,a=64300,N=3,n=35 

2990 GOSUB LABEL DELETE 

3000 GOSUB LABEL AFFICHAGE JEU 

3010 GOSUB LABEL INSCRIPTION 2 

3020 GOSUB LABEL BRUIT 

3030 RETURN 


Structure et explications du programme : 

GENECAR est constitué d'une succession de routines, appelées en série 
par le programme-source (100-200): 


Nom du label 


Fonction 


AIDES Affichage des commentaires et explications. 

INITIALISATIONS Copie des caractères alphanumériques et graphiques dans 
une zone réservée de la mémoire. 
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VARIABLES 

ÉCRAN 

EFFACER 

INSCRIPTIONS 
AFFICHAGE JEU 

INSCRIPTION 2 

BOUCLE 


Sous-routines : 

JEU 

RESET 

QUIT 

COPY 

DELETE 

RETOUR JEU 

CREATION 

ON/OFF 

SAVE 

LOAD 


Initialisation des diverses variables du programme. 
Présentation-écran de base. 

Création d'une fenêtre-texte pour l'affichage des 
commandes disponibles, et effacement de cette fenêtre. 

Affichage des commandes disponibles. 

Affichage du jeu de caractères complet, et initialisation du 
curseur. 

Affiche en permanence le code et la première adresse du 
caractère pointé par le curseur "jeu". 

Boucle de saisie des commandes. Celle-ci appelle elle- 
même un certain nombre de sous routines, en fonction des 
commandes entrées. 


Déplacement du curseur à l'intérieur du jeu. 

Réaffiche le jeu standard non modifié. 

Sortie du programme. 

Copie dans la matrice le caractère pointé dans le jeu. 
Effacement de la matrice. 

Copie dans le jeu du contenu de la matrice. 
Déplacement à l'intérieur de la matrice. 

Validation ou annulation d'un point de la matrice. 
Sauvegarde sur cassette le jeu de caractères. 

Routine de chargement d'un jeu. 


Enfin, un LABEL "BRUIT" sonorise les différentes parties du programme. 

Remarque: Tous les sous-programmes de GENECAR sont cités, mais 
chacune des routines présentées en appelle elle-même d'autres suivant les 
besoins du programme. 
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4 

Le graphique et le son 


4.1. L'œil du Lynx: le graphique haute-résolution 


Le Lynx dispose d'un mode graphique haute-résolution de 256 par 
248 points, adressables individuellement. Tout l'écran est accessible, et les 
huit teintes disponibles sont toujours utilisables pour définir séparément la 
couleur de chaque point. Un certain nombre d'instruction sont spécifiques 
au mode graphique, dont la puissante instruction PLOT qui combine le 
dessin en coordonnées relatives et en coordonnées absolues. 

Comme dans la première partie, ces instructions sont détaillées et parfois 
associées à des sous-programmes d'exemple ou destinés à pallier à 
l'absence de certaines commandes (cercle, arc, rectangle). 

Deux autres chapitres sont consacrés aux possibilités offertes par le 
mélange texte/graphique, ainsi qu'à l'utilisation du langage-machine. 
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4.1.1. Les instructions 


Toutes les commandes du graphique font référence à la position d'un 
curseur à l'écran. Ce curseur est différent de celui qu’emploie le mode 
texte : Il n'apparaît jamais physiquement, sa position est gérée directement 
en mémoire. 

— La coordonnées horizontale (ou abscisse) du curseur doit être comprise 
entre 0 et 255. Dans la syntaxe des commandes, cette valeur est repré¬ 
sentée par X. 

— Sa coordonnée verticale, ou ordonnée, entre 0 et 247. Il s'agit de Y 
dans la syntaxe. 

— Le point de coordonnées 0,0 ou point d'origine, correspond au coin 
supérieur gauche de l'écran. 

Remarques : 

— Toutes les fonctions du graphique sont notablement accélérées en 
mode monochrome (TEXT). 

— On appelle "couleur en vigueur” les couleurs d'affichage sélectionnées 
par INK et PAPER, selon les mêmes règles que celles définies au para¬ 
graphe 3.1.3 pour l'affichage texte. 


DOT 

Syntaxe : DOT X,Y 

Application : Trace un point élémentaire, ou pixel, à l'écran à la position X,Y 
et dans la couleur en vigueur. La nouvelle position du curseur sera X,Y. 

REMARQUE: L'emploi de coordonnées hors-limites est autorisé. Si la valeur 
de X ou Y dépasse 255 ou 247, le point est affiché à l'écran aux 
coordonnées : 

X MOD 255 
Y MOD 247 

Cette règle fonctionne également si X et Y sont négatifs. 
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Exemples : 


DOT 100,100 

DOT 500,100 est équivalent à DOT 245,100 
DOT 100,-20 est équivalent à DOT 100,227. 

Le programme suivant trace un cercle point par point, après définition de 
son rayon et des coordonnées du centre par l'utilisateur (voir également 
§ 4.1.2). 

1 00 
1 1 0 
120 
130 
140 
150 
160 

1 70 
1 80 
190 

2 0 0 
21.0 

DRAW 

Syntaxe : DRAW X,Y 

Application : Trace une droite dans la couleur en vigueur, à partir de la posi¬ 
tion du curseur jusqu'au point de coordonnées X,Y. Comme pour DOT, le 
curseur est déplacé à la position X,Y et l'emploi de valeurs hors limites est 
autorisé. 


REM CERCLE 

VDU 2,0,1,7 

W1NDOW 3, 123,205,245 

VDU 4,23 

ÏNPUT"RAYON "5 R 

INPUT"COORDONNEES DU CENTRE "; X,Y 

FOR TO 2*PÏ BTEP PI / <R*3.2) 

>:=SIN ( I ) *R+X 

y=COS(I)*R+Y 

DOT ï: , y 

NEXT I. 

END 


Exemple : 

100 REM DEMCJ DRAW 
110 CLS 

120 FOR 1=0 TO 2*PI STEP 0.1 

1 30 ;; = 1 00+ ( COS < I ) *50 > , y= 1 00+ ( SI N < I ) *50 ) Th A 't— 
140 DRAW , y 
150 MOVE 100,100 
160 NEXT I 


Explication : 

Draw trace successivement à l'intérieur de la boucle, des lignes à partir du 
centre (100,100) vers la périphérie du cercle (x,y). 
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MOVE 

Syntaxe : MOVE X,Y 

Application : MOVE déplace le curseur aux coordonnées X et Y, sans tracer 
aucun point. 


Exemple : 

100 REM POINTILLES 
110 CL S 

120 FOR Y=0 TO 200 STEP 20 
130 Z=0 

140 FOR X=0 TO 255 STEP 10 

150 IF Z = 1 THEN DRAW X, Y 

160 ELSE MOVE X„Y 

170 Z=NOT 7 

ISO NEXT X 

170 NE X T Y 


PLOT 

Syntaxe : PLOT <mode>,X,Y 

Application : Cette instruction puissante autorise cinq types de tracés diffé¬ 
rents en fonction de <mode> : 

— PLOT 0 est identique à MOVE. 

— PLOT 1 est un MOVE relatif. Le curseur est déplacé du nombre de 
points fixé par X et Y, et non au point de coordonnées X,Y. Par exemple, 
PLOT 1,100,4 déplace le curseur de 100 pixels horizontalement et de 
4 verticalement. 

— PLOT 2 est identique à DRAW. 

— PLOT 3 est un DRAW relatif. Comme pour PLOT 1, le curseur est 
déplacé du nombre de points fixé par X et Y, mais une droite est tracée 
en même temps. Celle-ci représente la diagonale d'un rectangle, dont 
les coins opposés correspondent respectivement à la position d'origine 
du curseur et à son point d'arrivée (la longueur de ce rectangle fictif est 
X, et sa hauteur Y). 

Par exemple, si la position d'origine est 10,10 PLOT 3,100,50 peut se 

schématiser ainsi : 
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( 10 , 10 ) 


100 



50 


(1 10 , 60 ) 


— PLOT 4 est identique à DOT. 

Remarques: 

— Comme pour les autres instructions, on peut spécifier pour PLOT des 
coordonnées négatives. Dans le cas de PLOT 1 et de PLOT 3, ces coor¬ 
données entraînent un déplacement inversé sur l'échelle des abscisses 
et des ordonnées. Soit par exemple 100,100 la position du curseur, 
PLOT 3,—50,—10 aura pour effet de tracer une droite vers le point de 
coordonnées 50,90. 



— PLOT est utile pour paramétrer les instructions, dans la mesure où 
<mode> peut être une variable. 


Exemple : 

Le dessin en relatif autorise, en paramétrant les valeurs de X et Y, une 
modification simple de la taille d’un graphique. Le programme présenté 
démontre cette possibilité en effectuant par une simple boucle un 
"zooming” sur le dessin de la lettre "E". 

100 REM PLOT RELATIF 

1 10 VDU 2,, 0. 1,7,4 

140 WINDOW 3,123,205,245 

150 GOTO 310 

160 REM DESSIN LETTRE 

170 MOvL X,Y 

ISO PLOT 3,80*F,0 

190 PLOT 3,O,-20*F 
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20ÿ PLOT 3, 60*F,O 
210 PLOT 3,0,-20*F 
.".'O PL 0 I' 3, .0 

2 30 REGI 3,0, 20 * F 

. 10 PL U I 3, ’0-l , O 

250 F'LO'l 3,0, .0“! 

1 pi oi ■, ■ ,o>i ,0 

2 1,1 PI 07 , 0 , 20 * |' 

3Ù0 I 'I. O T 3, 0> i « f , 0 
f [ 01 '-, 0,1 oo»F 

.'■00 I I IURN 

310 il M Ail 1( I lOi •[ 

: 20 I OR 1-0.1 I 0 1 . ■ - I L I • 0.6 

' ■ P'0‘1 • Ml " ■ - 20 

pi 0 , l 0»11 r i ‘. 0 -f 

350 G 0:3 U b L ■' 0 

360 NI -• I F 

370 REM COMMENTAIRE 

,380 PR IN 70 3,210; 

390 PRIIMT"LA' LETTRE: E EST AFFICHEE A TROIS POINT DIFFERENTS DE 
L'ECRAN EN. .. MGDIF IAN7 X,Y ET DANS TROIS..TAILLES EM MODIFIANT F 


Explication : 

100,150: Initialisations. 

160,300: Sous-programme dessinant en relatif une lettre "E", au point 
de coordonnées X,Y. La variable F paramètre la taille du dessin. 

310,360 : Boucle faisant varier F pour modifier emplacement et taille de la 
lettre " E 


4.1.2. Quelques programmes... 

Les quelques programmes qui suivent sont des exemples de ce qu’il est 
réellement possible de faire à l’aide des instructions du graphique Lynx. 
Tous sont suffisamment simples pour s'adapter aux besoins du lecteur, ou 
utilisés comme sous-programmes en supprimant les lignes de commen¬ 
taires et présentations. 

Utilisation des 4 flèches du clavier pour dessiner 

100 REM DESSIN CLAVIER 
110 V.DLJ 2,0, 1,7,4 
130 WIND 0W 3,123,5,2 0 5 
140 X = 127, Y = 1 0 2, :■; == X , y = Y 
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150 MO'v'E X, Y 
160 DOT X,Y 

170 PRIMT© 3,205;"LES 4 FLECHES SERVENT AU DEPLACEMENT...."; 

175 FRI NT® 3,2155 "<SPACE> FIN DE SAISIE.. . . ." 

180 PR I NT® 3,225 ; " X= " ; >: ; " " ; T AB 10;" Y= " 5 y 5 " " ; 

190 A=GETN 

195 IF A=32 THEN GOTO 30u 

200 IF A=22 AND >:<>€> THEN LE: T :■:==■:- 1 

210 IF A=12 AND ;-:<>255 THEN LET H 

220 IF A=1I AND y 0 THEN LET y=y- 1 

230 IF A=10 AND v<>205 THEN LET y=y+1 

240 PRINT® 3,2255 "X="5«5" "5 TAB 10;"; y ; " 

250 DRAW >: , y 
260 X=x,Y=y 
270 GOTO 190 
300 END 


Explications : 

110,180: Initialisation des variables et présentation écran. 

190,270: Boucle principale servant au dessin, comprenant: 

240 : Écriture des coordonnées du curseur à l'écran. 

190,230: Saisie de ses mouvements. Les valeurs limites pour x,y empê¬ 
chent le dépassement des bords de l'écran. 

Remarques : 

— Les principes de base utilisés sont identiques dans tous les 
programmes d'aide au dessin, quelle que soit leur complexité. 

— Une version de ce programme utilisant les ports de Z 80 pour une 
saisie plus rapide est proposée au paragraphe 4.1.5. 

Dessiner un rectangle 

10O REM RECTANGLE 
105 VDU 2,0,1,7,4 
110 WINDOW 3,123,205,245 
120 VDU 4,23 

130 INPUT"COIN SIJP. GAUCHE <X,Y) ";C,c. 

140 INPUT"LONGUEUR RECTANGLE " 5 L 

150 INPUT"LARGEUR RECTANGLE ";1 

160 PLOT O,C,c 

170 PLOT 3,L,0 

180 PLOT 3,0,1 

190 PLOT 3,—L,0 

200 PLOT 3,0,“1 

210 END 
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Explications : 

50,120: Initialisations. 

130,150: Entrée des caractéristiques du rectangle. 
160,200: Dessin du rectangle. 


Colorier une zone rectangulaire 

100 REM ZONE RECTANGULAIRE 
105 VDU 2,0,1,7 
110 WINDOW 3,123,205,245 
120 VDU 4,23 

130 INPUT"COIN SUR. GAUCHE < X,Y) ";C,c 

140 INPUT"LONGUEUR ZONE ";L 

150 INPUT"LARGEUR ZONE "; 1 

155 INPUT"COULEUR DU TRAIT (1-7) "; A 

160 IF Al OR A>7 THEN GOTO 155 

170 INK A 

180 WHILE 1 —c 

190 PLOT 0,C,c 

200 PLOT 3,L,O 

210 c:=c: +1 

220 WEND 

230 END 

Explication : La création de la zone se fait par affichage de lignes horizon¬ 
tales jointives dans la couleur choisie. 


Dessiner un cercle, une ellipse, un arc 

Aucune instruction n'est prévue pour dessiner ces figures. Les trois procé¬ 
dures ci-dessous simulent ces commandes avec possibilité de passage de 
variables à partir du programme principal: 

— PROC CERCLE (R,X,Y) appelle la procédure "CERCLE”, avec R=rayon 
et X,Y les coordonnées du centre. 

1 00 D EF PROC CERCLE <R,X,Y) 

160 FOR 1=0 T O 2*PI STEP PI/(R*3.2) 

170 =S IN ( I ) *R+X 
180 y=COS (I) *R+Y 
190 DOT : ,y 
200 NEXT I 
210 ENDPROC 
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— PROC ELLIPSE (R,r,X,Y) appelle la procédure "ELLIPSE", avec 
R=rayon horizontal r=rayon vertical et X,Y les coordonnées du centre. 

ÎOO DEFPROC ELLIPSE (R,r,X,Y) 

160 F' OR 1=0 TO 2*PI STEP P I / ( (r + R ) *2. 5) 

170 x=SIN <I)*R+X 
180 y=COS<I)*r+Y 
190 DOT h ,y 
200 NEXT I 
210 ENDPRÛC 


— PROC ARC (R,X,Y,0,L) appelle la procédure "ARC", avec R=rayon, X 
et Y les coordonnées du centre, 0 le point d’origine à partir duquel 
démarre le tracé, et L la longueur de l’arc. 

* 0 doit être compris entre 0 et 1. Si l’on assimile le cercle complet au 
cadran d’une montre, 0=0 correspond à 6 h, 0.5 est midi, 0.75 est 
9 h et 1 est confondu avec 0 (tour complet). 

* L doit aussi être compris entre 0 et 1, L=0.5 trace un demi-cercle, 
0.25 un quart de cercle, etc... 

100 DEFPROC ARC <R,X,Y,O,L> 

110 A=Q#2*PI 
120 B«2*PI*L 

.160 FOR I =A TO A+B STEP PI/<R*3.2) 

170 >:=SIN<I)*R+X 
ISO y=COS(I> *R+Y 
190 DOT y., y 
200 NEXT I 
210 ENDPROC 


4.1.3. Un programme utile? 

Voici un programme qui devrait permettre au lecteur de se familiariser avec 
les instructions du graphique Lynx. La procédure de dessin d’un arc y est 
incluse, avec une modification : Le point d’origine 0 et la longueur L ont été 
remplacés par le point de départ A et le point d’arrivée B, avec A et B 
compris entre 0 et 2 * PI. 
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1 00 

REM 

F MD 

1 10 

CLS 


120 

W I ND 



MO VE 

0,40 

;L40 

PLOT 

3, 70,0 

.1 50 

PLOT 

3 0,20 

1 60 

P LO 1 

3, 500 

170 

PLOT 

3 0 20 

1 80 

PLOT 

3, 30, 0 

190 

PLOT 

3 0 20 

200 

PLOT 

3, 30,0 

2 10 

! LO T 

3 H 0 , 2 0 

220 

PLOT 

3,50 H 0 

230 

PLOT 

3,0,20 

240 

PLOT 

3,.70,0 

250 

PL 01 

3 h 0 , 100 

o c:j 

REM 

.171T RE N 

260 

MO VE 

85,40 

2 7 0 

PLOT 

3,0, 100 

280 

PLOT 

3, 20, O 

290 

PLOT 

3,0, — 7 0 

300 

D R h W 

1. 37, 140 

310 

F 5 1...OT 

3 h 30,0 

320 

PLOT 

3,0,-100 

330 

PLOT 

3, -20,0 

340 

PLOT 

3,0,70 

350 

DRAW 

1 15,40 

360 

LL Ü T 

3, -30,0 

3<:>6 

REM 

EXTERIEUR DE D 

370 

MO VE 

182,40 

380 

PLOT 

3,0, 1 00 

390 

PLOT 

3, 30,0 

400 

PROC 

A R C ( 40,21 2, 100,0, P1 / 2 ) 

410 

PLOT 

3 0 - 20 

A 20 

PROC 

mR C <4O,2 1 2,80,PI/2,P1) 

430 

PLOT 

3, --30 n 0 

435 

REM 

INTERIEUR DE D 

440 

MO VE 

202,60 

450 

PLOT 

3,0,6 Ü 

460 

PLOT 

3,5,0 

470 

PROC 

ARC (30,207,90,0,PI) 

480 

PLOT 

3, - 5,0 

470 

END 


1 1 01 

DEFI 

■ROC ARC ( R, X , Y , A, B i 

1 ]. 60 

FOR 

I-A 10 B STEP PI/(R *3.2 


1 170 x =5 1 f'J < 1 ) *R+X 
1180 y=C0S<I) * R + Y 
1190 DOT x,y 
1200 ME‘T I 
1210 ENDPFOC 
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4.1.4. Le mélange texte-graphique 


La plupart des ordinateurs dits "familiaux" du commerce disposent d'un 
mode graphique séparé du mode texte, avec des zones réservées pour l'un 
et l'autre. Ce n'est pas le cas du Lynx, dont l'affichage est prévu pour fonc¬ 
tionner dans tous les modes sur un même écran: 

PRINT @ autorise le placement du texte sur un graphique, avec une résolu¬ 
tion horizontale de deux pixels et verticale de un pixel ! 

Il peut toutefois s'avérer indispensable de disposer de la possibilité de 
dissocier texte et graphique, ne serais-ce que pour pouvoir les effacer 
séparément. 

Pour ce faire, nous proposerons trois méthodes assez faciles à mettre en 
œuvre : 

1. Créer deux pages-écran, l'une pour le graphique et l'autre pour du texte. 
On peut effacer et écrire séparément sur les deux pages en dirigeant le 
pointeur de la banque "vert" vers le vert alternatif. Une fois remplies, 
les pages s'affichent de manière instantanée (cf. § 3.1.3). 

2. Sélectionner une partie de l'écran pour le graphique, en dimensionnant 
la zone texte avec WINDOW. 

Par exemple, WINDOW 3,123,205,245 réserve une fenêtre de quatre 
lignes de haut pour le texte en bas d'écran, et laisse 205 lignes hori¬ 
zontales pour dessiner. On peut alors effacer texte et graphique séparé¬ 
ment à l'aide des deux procédures suivantes: 

Effacement du graphique 

ICO DEFPROC CLG 
110 A=PEEK (25176) 1.0 

120 FOR 1=0 Tü A STEP 5 
130 PRINT® 0,1; 

135 VDU 30,31 
140 NEKT I 
150 VDU 23 
160 ENDPROC 
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Effacer du texte 


100 DEFPROC CLT 
110 VDU 23 

120 A= I NT < <PEEK(25177)-PEEK(25176) )/10) 

130 FOR 1 = 1 TCI A 

140 VDU 30,31 

150 NEXT I 

160 ENDPROC 


Remarques: 

— On doit bien entendu éviter de dessiner dans la zone-texte pour séparer 
efficacement les deux fonctions. 

— On peut définir une hauteur de WINDOW différente de celle donnée en 
exemple, car les procédures "CLT” et "CLG" se règlent automatique¬ 
ment sur cette hauteur, en lisant dans les adresses contenant la taille 
de la fenêtre (voir §3.1.2). 

3. Il est également possible de protéger la ou les couleurs employées pour 
le graphique, puis y superposer du texte dans une couleur différente. 
Dans ce cas, CLS effacera le texte séparément du graphique. 


Exemple : 

100 REM TEXTGRAPH 
102 PROTECT O 
105 CLS 
110 INK 2 

140 FOR 1=0 TO 240 STEP 20 
145 MDVE 0,0 
150 PLOT 2,240,1 

155 MDVE 0,240 

156 PLOT 2,240,1 
160 NEXT I 

170 FOR 1=0 TO 240 STEP 20 

180 MOVE 0,0 

190 PLOT 2,1,240 

200 MOVE 0,240 

210 PLOT 2,1,0 

220 NEXT I 

230 PROTECT 2 

240 INK 7 

250 PR INT"LE TEXTE S'ECRIT SUR LE GRAPHIQUE SANS EFFACER CE 
DERNIER :" 

255 VDU 24 

256 PRINT 
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260 FOR 1 = 1 TO 120 
270 PRINT"Z"; 

280 NEXT I 
300 v'DU 25 
310 PRINT@ 3,245; 


Explications : 

100,110: Efface l'écran et sélectionne la couleur d'écriture. 

140,220: Affichage du graphique. 

230 : Protection de sa couleur. 

240,310: Écriture de texte dans une autre couleur (superposition). Si un 
CLS est entré après exécution du programme, seul le texte est 
effacé. 


4.1.5. Graphique et langage-machine 

Dessiner par l'intermédiaire des accès directs à la mémoire présente 
l'avantage de la rapidité, avantage apprécié sur un ordinateur comme le 
Lynx dont l'affichage n'est pas des plus véioces... 

Deux méthodes sont présentées, la saisie clavier par les ports du Z 80 et le 
tracé de lignes par l'appel d'une routine de la ROM. 

La saisie clavier 

Certains ports du Z 80 permettent une lecture fugitive de l'état du clavier 
par l'instruction INP. Cette lecture est équivalente au KEYN du Basic, mais 
se révèle plus performante car plus rapide et détectant l'autorépétition des 
touches. 

On peut dresser une liste des valeurs lues sur les ports selon la touches 
appuyée : 

Si K=INP(1152), on a: 

K=247 Touche <ESPACE> appuyée. 

K=254 Touche <6> 

K=255 Aucune action, ou touche sans effet. 
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Si K=INP(2432) on a: 

K=251 "Flèche Gauche" 

K=223 "Flèche Droite" 

K=219 Les deux Flèches ci-dessus, actionnées simultanément. 
K=254 <DELETE> 

K=247 <RETURN> 

K=253 Touche " | " 

K=255 Aucune action, ou touche sans effet. 

Si K=INP( 128), on a: 

K=239 "Flèche vers le haut" 

K=223 "Flèche vers le bas" 

K=207 Les deux touches ci-dessus actionnées simultanément. 
K=127 Détecte une pression sur <SHIFT> 

K=247 Détecte une pression sur <SHIFT LOCK> 

K=1 1 1 Pression simultanée sur <SHIFT> et f 
K=95 Pression simultanée sur <SHIFT> et \ 

K=231 Pression simultanée sur <SHIFT LOCK> et f 
K=215 Pression simultanée sur <SHIFT LOCK> et J 
K=254 Touche <1> 

K=255 Pas d'action, ou touche autre touche. 


REMARQUE: On peut lire plusieurs ports successivement, pour combiner 
toutes les possibilités de chacun d'entre eux. 


Exemple : 

Voici une adaptation du programme " Dessin clavier" (§4.1.2), avec saisie 
des quatre flèches pour dessiner. L'emploi des ports 2432 et 128 simulta¬ 
nément permet le dessin en diagonale quand deux touches sont appuyées 
en même temps. La vitesse de tracé est étonnante ! 

100 REM DESUtN CLAVIER 2 
110 TEX T 

1 20 W ! N DOW 3 ,, 1 23,205. 245 
130 VDU 23 

140 PRXNT"UTILISEZ LES 4 FLECHES POUR DESSINER" 

150 PR INT"AVEC 2 FLECHES, ON TRACE EN DIAGONALE" 

160 PRINT" : SRACE> FIN DE SAISIE" 

1 70 X == 12 7, Y = 10 2 
190 A -1N F' ■: 2432 ) 

200 X= < X + ( A— 223 > ) (A ==251) 
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210 A=INP(128) 

220 Y=(<Y+(A=223))-<A=239>) MDD 198 
230 A=.INP f 1152) 

240 IF A=247 THEN END 
250 DOT X,Y 
260 GOTO 190 


Explications : 


110,180: Initialisations, texte de présentation. 

190 : Lecture du port 2432. 

200 : Détection de l'appui sur " Flèche gauche” ou " Flèche droite". X 

est modifié en fonction du sens de déplacement horizontal 
choisi. 

Si -♦ est appuyée, l'expression A=223 est vraie, et vaut 1. 

Si <- est appuyée, l'expression A=251 est vraie et vaut 1 
Si aucune touche n'est utilisée, les deux expressions valent 0. 


210 : Lecture du port 128. 

220 : Comme précédemment, détection de l'appui sur " Flèche haut” 

ou " Flèche bas". Y est modifié selon le même principe, en fonc¬ 
tion du sens de déplacement choisi. La division MOD198 
empêche le débordement sur la partie texte du bas de l'écran. 


230,240: Lecture du port 1152, et arrêt du programme si la touche 
<ESPACE> est appuyée. 

250 : Affichage d'un point aux nouvelles coordonnées. 

260 : Retour au début de la boucle. 


Le tracé de lignes 

Une routine de la ROM est utilisable en Basic pour tracer des droites : CALL 
251 86. Lors de l'appel de cette routine, une droite est tracée entre le point 
dont les coordonnées XI et Y1 sont placées aux adresses 25189 et 
25191, et le point dont les coordonnées X2 et Y2 sont placées aux 
adresses 25192 et 25194. 

Une fois cette droite tracée, les coordonnées X2 et Y2 sont transférées 
dans les adresses 25189 et 25191, à la place de XI et Y1, et donc mémo¬ 
risées comme point d'origine pour le tracé suivant. 
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Exemple : 

Tracé de deux droites: 


10 CL S 

20 POLE 25189,0 
30 POKE 25191,0 
40 POIL 25192,100 
50 PÜKC 25194,100 
o 'O C m 1.1 251 £36 

70 PO- i 25192,200 
80 POIX 7 25194,50 


90 C'AL.L 25186 


Explication-. On trace d'abord la droite allant de 0,0 à 100,100, puis de 
100,100 à 200,50. 

On peut adapter le programme " DEMO DRAW" (§ 4.1.1), pour afficher les 
points selon cette méthode : 


100 PI II DE MO DRAW 

102 TEXT 


1 1 0 F OR' T : 

i:.,'. TH 

•*PI E 

120 POIX 

15 1 89 

1 00 

125 POIX : 

.‘51 1 . 

.1 00 

i y i ' -o 

-.5111 

1>*50> 

M>.' lOO 

< i. OS 

i; ) k- 50 ) 

150 POLI' 

•t, i • ■ ; 


Lai Pi ni: 

"... i 94 

y 

170 L Al i 

190 ML X 1 

i: 



Explication : Les lignes de 150 à 170 incluses remplacent l’instruction 
DRAW de "DEMO DRAW ", et les lignes 120 et 125 l'instruction MOVE. 


4.2. Le son du Lynx 


Votre ordinateur peut très simplement émettre des notes de musique et 
des sons, grâce aux instructions BEEP et SOUND. 
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4.2.1. BEEP 


Syntaxe : BEEP <période>,<durée>,<volume> 

Application : Émet un son défini par trois paramètres. 

— La période correspond à la hauteur du son, et doit être comprise entre 
0 et 65535. Celle-ci est l'inverse de la fréquence du son, donc plus elle 
est élevée, plus le son est grave 

— La durée peut être réglée entre 0 et 65535, il s'agit du nombre de 
périodes. 

— Le volume peut être réglé entre 0 et 63. 

Remarque: 

— La valeur de <période>*<durée> doit être constante pour obtenir des 
sons d'égale longueur pour des hauteurs différentes. 


Exemple : 

160 REM GAMME 
1 10 R=8, L.=3 0 O 0 O 
130 WHILE R>=1/8 
140 FOR 1 = 1 TC) 12 
150 READ H 

160 BEEP H*E,L/<H*R> ,63 

170 NEXT I 

100 R=R/2 

190 RESTORE 

200 WEND 

210 END 

220 DATA 41 5,393,369,351,332,3 11 ,293,276.5,262,249,234,22 1 


Explications : 

110: Initialisations. 

130: Boucle d'émission des notes. 

140: Boucle de lecture des DATA (les douze notes de la gamme). 
160: Émission d'une note de longueur constante. 

180: Monter d'un octave. 

190: Réinitialise les DATA. 
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On peut dresser un tableau des notes de la gamme, pour l'octave habituel¬ 
lement utilisée (LA=440 hertz), avec N=Note et T=Période: 


N DO DO# RE RE# Ml FA FA# SOL SOL# LA LA# SI DO 
T 415 393 369 351 332 311 293 276.5 262 249 234 221 207.5 

On descend et on monte d'un Octave en multipliant ou en divisant ces 
valeurs par 2. 

Les effets sonores sont possible en incluant BEEP à l'intérieur de boucles: 

ton REM MONTEE 

110 FOR = 100 TO 10 STEP 1 

120 BEEP J,10,63 

130 NEX T J 

100 REM PARTIE GAGNEE 
110 FOR I 1 TO 20 

1 2 0 B E L P R A N D f 4 O O ) ^ 200, R A N D ( 10 ) +■ 2 0,6 3 
130 NEXI I 

100 REM R2D2 

1.10 F OR T O TO 10 

120 BEEP RAN D <50)+50,20,ô 3 

130 OCX T J 


4.2.2. SOUND 

L'instruction SOUND est plus complexe, son emploi nécessitant une réser¬ 
vation d'espace-mémoire, et l'écriture d'une suite de codes correspondant 
à l'enveloppe du son que l'on désire émettre. 

Syntaxe : SOUND <adresse>,<délai> 

Application : SOUND lit successivement les octets à partir de <adresse>, 
et les convertit en son. <Délai> permet de fixer le temps entre la lecture de 
deux adresses. L'exécution de SOUND est interrompue lorsqu'une adresse 
contient la valeur 0. 

Remarque: En fait, SOUND autorise la création d’une forme d'onde dont 
on peut spécifier tous les paramètres. On utilise ensuite <délai> pour 
régler la hauteur du son (ou du bruit !) émis. 
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Une forme d'onde peut se définir par un dessin, qui représente son enve¬ 
loppe. Soit par exemple une sinusoïde simple : La valeur la plus basse qu'un 
octet peut prendre est égale à 1, la plus haute à 255. Si l'on dessine une 
grille correspondant à ces limites, avec les adresses en abscisses et leur 
contenu en ordonnées, on peut y tracer la courbe et en déduire la valeur de 
tous les octets la composant : 



Une fois constituée la liste des octets correspondant à la courbe, il faut les 
placer successivement dans une zone-mémoire réservée à l'aide de POKE : 

100 RESERVE HIMEM-22 
1.1.0 FOR 1=0 TO 21 
120 READ R 
130 POKE I I I ME: 11+ 1 , R 
140 NE X T I 
150 END 

160 DATA 140,160,162,164,162,160,156,150,135,125,120,110,100,90, 
95, 1 02 , 112,1 30, 1 40 , 0 

Explication : 

100: On décale le HIMEM de 22 octets. 

110: Boucle de lecture des DATA (forme de la courbe). 

120: Inscription des valeurs lues dans DATA à partir de HIMEM. 

L'émission des sons se fait ensuite par SOUND HIMEM,<délai>. La courbe 
définie dans ce programme ne comportant qu'une seule alternance, il faut 
l'inclure dans une boucle pour obtenir un son continu: 

1000 FOR 1=1 TO 1000 
1010 SOUND HIMEM,10 
1020 NEXT I 
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En modifiant le délai, on peut changer la hauteur du son: 

1600 FOR 1=1 TO 100 
1010 SOUND HIIiEI'1,1 
1020 NFXT I 


Remarque: 

— La forme d'onde présentée est très simple, mais rien n'empêche le 
dessin d'une enveloppe complexe sur un plus grand nombre d'octets, la 
seule limite étant la capacité mémoire du Lynx. 

— On peut employer SOUND pour lire des adresses n'importe où dans la 
mémoire, le résultat est parfois surprenant. En voici quelques 
exemples : 


1 00 

REM MITRAILLETTE 


1 1 0 

FOR I--1 TO 10 


1 20 

SOUND 1850,70 


1. 30 

PAUSE. 50 


1 40 

NEX T 1 


1 00 

REM HELICO 


1 1 0 

FOR 1=500 TO 10 

S TEP 

1 20 

SOUND 22O0,I 


130 

PAUSE RAND<100) 


140 

NFXT I 


1 00 

REM VAISSEAU SPA 

T] Al. 

1 1 0 

FOR 1=1 TO 50 


1 20 

SOUND 1850,1 


140 

NE XI 1 


1 00 

REM DESTRUCT ION 


1 1 0 

FOR I=500 TO 100 

S T EF 

1 20 

SOUND 1850,1 


1 30 

PAUSE RAND(100) 


140 

NE X T I 


1 00 

REM MOTO 


1 1 0 

FOR 1=1850 TO 21 

00 

1 20 

SOUND I,1 


140 

NE X T I 


1 00 

REM ZIP 


1 1 0 

FOR 1=1 TO 100 


120 

SOUND 2400,I 


140 

NE XI I 
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4.2.3. Le programme "CHOPIN" 


PROGRAMME CHOPIN BURP 


IJ 


J 1 

1 133552211111111333 
■ # # 





3 J * t 3 t 


: LONGUEUR NOTE iVJ^Uoj 
t 4- : S E L E U TIU N O C T A 0 E ( 1 — 5 ) 

1-S - : SELECTION NOTE (#: SHIFTi 

ESPACE : SILENCE C?) 

:=■ : DEFILEMENT PARTITION 

I : INSERER UNE NOTE 

DEL : EFFACER LA NOTE 

0 : JOUER LA PAGE AFFICHEE 

J : JOUER LA MELODIE EN MEMOIRE 

E : EFFACER LA MELODIE 

P : IMPRIMER LA MELODIE 

S lT C : SAUUEGARDE ET CHARGEMENT K7 


Ce programme de création musicale exploite au maximum les possibilités 
du Basic, dans la mesure où il regroupe des instructions de couleur, du 
graphique, ainsi que les routines de création de caractères. Son fonctionne¬ 
ment sur la version 48K du Lynx implique quelques modifications (voir 
remarques). 

Il vous permettra : 

1. De saisir et mémoriser une mélodie à partir du clavier. Les touches de 1 
à 8 sont affectées aux notes de la gamme, la touche <ESPACE> au 
silence et <SHIFT> permet l'obtention des dièses. La mélodie est 
affichée au fur et à mesure à l'écran sur une portée musicale. La 
longueur et la hauteur des notes peuvent être constamment modifiées. 

2 . De jouer la mélodie mémorisée au tempo choisi. 

3 . De modifier la mélodie directement sur la portée à l'aide de 
commandes simples. Un curseur pointe constamment la note en cours. 

4 . De copier la mélodie en mémoire sur une imprimante. 

5 . La sauvegarde et le chargement d'une mélodie sur K7. 
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Commandes disponibles: 

Modifie la longueur de la note et des silences. Cinq valeurs sont 
disponibles, et correspondent à double croche, croche, noire, 
blanche et ronde. La longueur en cours est constamment affichée 
à l'écran. Toute note modifiée et toute nouvelle entrée se fait en 
fonction de cette longueur. 

Permet de descendre ou de monter de un ou plusieurs Octaves. 
L'Octave en cours est affiché à l’écran, au dessus de chaque note 
de la partition. 

I Après action sur I, un silence est inséré à l'intérieur de la mélodie 

et de la partition, à la position du curseur. Pour insérer une note, il 
suffit de surcharger ce silence avec la note désirée. 

<DEL> Supprime de la mélodie la note présente sous le curseur. 

< > Autorise le déplacement à l'intérieur de la partition. Lorsque le 
curseur arrive en bout d'écran, le curseur se place sur la note 
suivante de la page suivante. Le numéro de la page en cours est 
constamment affiché à l'écran. Les notes sur lesquelles passe le 
curseur peuvent être directement modifiées, sans autres 
commandes. 

@ Joue à un tempo fixe les notes de la page affichée à l'écran 

(permet le contrôle immédiat des modifications). 

E Efface la mélodie en mémoire, pour permettre une nouvelle 

entrée. 

J Rejoue la mélodie mémorisée, selon le tempo désiré. 

P Copie les notes composant la mélodie sur l'imprimante. 

S,C Sauvegarde et chargement sur K7. 


Remarques: 

— Le nombre de notes composant la mélodie a été limité à 500 sur la 
version 96K, le programme interdit toute nouvelle entrée une fois cette 
limite atteinte. 

— On peut, d'une note à l'autre, sauter de plusieurs Octaves à la fois. 

— Toute commande effaçant la mélodie doit être confirmée. 
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— Le programme est prévu pour une imprimante branchée sur l'interface 
parallèle. Dans le cas d'un interface série, il faut remplacer la ligne 
3330 par: 

3330 EXT SPRINT 

Sur le Lynx 48K., il faut charger le programme SPRINT pour rendre 
cette instruction fonctionnelle. Il est à noter que la commande P 
suspend l'exécution du programme si aucune imprimante n'est 
connectée. 

— La sauvegarde sur cassette utilise le Moniteur, avec sortie du Basic: 
Attention donc aux fausses manœuvres! 

— Pour le Lynx 48K., le nombre de notes que l'on peut entrer est malheu¬ 
reusement limité à 50, le programme occupant à lui seul 12K. sur les 
1 3.5K. réellement disponibles. Pour utiliser cette version, il faut écrire : 

210 DIM M(51*6) 

1110 q=40651 

1120 RESERVE 40580 

1350 IF X>48 AND X<57 AMD P<50 
THEN GOSUB LABEL SAISIE 

3280 IF S 50 THEN LET S=S+1 

3830 PR 1MT "TAPEZ: D 9EB4 9FF6 


OR X >31 AND X 40 AND P 50 


O 'MELODIE' 


1O0 REM CHOPIN 

110 GOSUB LABEL INITIALISATION 
120 GOSUB LABEL VARIABLES 
130 GOSUB LABEL ECRAN 
140 GOSUB LABEL EFFACER CADRE 
150 GOSUB LABEL INSCRIPTIONS 
160 GOSUB LABEL VARIABLES 2 
170 GOTO LABEL BOUCLE 
180 END 

1 190 LABEL VARIABLES 
200 LET A=0,B=1,C=2,D=3 
210 DIM M(501*6) 

220 LET 0=3,L=130,T=13250 

230 LET F-1,H=33,V=100,h=9,v=100,S=l 

240 LET 1=35,o=45,c=55 

250 LET z=0,m=3,y=0,n=0,u=l 

260 LET X =0,F=0 

270 DIM D$(4!(7) 
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2B0 FOR 1=1 TO 7 
290 READ D$(I) 

30O NEXT I 
310 DIM N$(4><8) 

320 FOR 1=1 TO 8 
330 READ N$ <I) 

340 NEXT I 
350 DIM N(9*3) 

360 FOR ,1 = 1 TO 2 
370 FOR 1=1 TO 8 
380 READ N ( 1*3+J ) 

390 NEXT I 

400 NEXT J 

410 DIM 0(5),L(5) 

420 FOR 1=1 TO 5 
430 READ 0(I),L(I) 

440 NEXT I 

450 DIM L$(15) Î5) 

460 FOR 1=1 TO 5 
470 READ L$(I) 

480 NEXT I 
490 RETURN 

500 LABEL VARIABLES 2 
510 F'RINT @ H, 1 ;CHR$(L) ; 
520 F'RINT @ 114,1 ;uj " "5 

530 F'RINT @ h.oiO; 

540 F'RINT I? h, c ; CHF.'t ( 134) 

550 RETURN 

560 LABEL ECRAN 

570 F'ROTECT 0 

580 PAPER A 

590 WINDOW 3,123,5,245 

600 CLS 

610 F'AF'ER B 

620 F'RINT @ 3,5 

630 F'RINT il 3,35 

640 FOR 1=55 TO 85 STEP 10 

650 F'RINT il 9,1 

660 NEXT I 

670 F'AF'ER A 

680 INK D 

690 FOR J=65 TO 97 STEP 8 

700 FOR 1=18 TO 245 

710 DOT I,J 

720 NEXT I 

730 NEXT J 

740 F'ROTECT B 

750 RETURN 

760 LABEL EFFACER CADRE 
770 F'ROTECT 0 
780 PAPER B 

790 WINDOW 3,123,125,245 
800 VDU 23 
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810 FOR 1=1 TO 12 
820 VDU 30,31 
830 NE X T I 
B40 PROJECT B 
850 RETURN 

860 LABEL INSCRIPTIONS 
870 INK B 

880 PRINT @ 30, 15; "PROGRAMME CHOPIN BVRP"; 
890 PRINT @ 3,35;"LONGUEUR: 

900 PRINT @ 78,355"PAGE NUMERO 
910 PRINT @ 3,45;"O"; 

920 PRINT e 3,55; 

930 VDU 23 


940 PR INT CHR$(124);CHR$(123);’ 
(130)5CHR*(131);CHR*(132);") 

950 PRINT CHR$(125);CHR$<126);‘ 


: LONGUEUR NOTE (“;CHR*(128);CHR$(129);CHR$ 


SELECTION OCTAVE <1- 


960 PR INT “1-8 : SELECTION NOTE (#:SHIFT)“ 

970 PRINT “ESPACE : SILENCE (" ; CHR$(133);")" 

980 PRINT "< > : DEFILEMENT PARTITION " 

990 PRINT "I : INSERER UNE NOTE" 

1000 PRINT "DEL : EFFACER LA NOTE" 

1010 PRINT : JOUER LA PAGE AFFICHEE" 

1020 PRINT "J : JOUER LA MELODIE EN MEMOIRE" 

1030 PRINT "E : EFFACER LA MELODIE" 

1O40 PRINT "P : IMPRIMER LA MELODIE" 

1050 PRINT "S ET C : SAUVEGARDE ET CHARGEMENT E7"; 

106O F'ROTECT D 
1070 INK 7 
1080 RETURN 

1090 LABEL INITIALISATION 
1100 DPOKE 25139,1024 
1110 LET q=62511 
1120 RESERVE 62440 
1130 DPOKE GRAF'HIC,HIMEM 
1140 FOR J=0 TO 69 
1150 READ R 

1160 POKE LETTER(128)+J,BIN(R) 

1170 NEXT J 

1130 CCHAR 256*32+134 

1190 RETURN 

1200 DATA 000011,000010,000011,000010,011010,111110,111100,011000 


1210 DATA 000011,000010,000010, 
1220 DATA 000010,000010,000010, 
1230 DATA 000010,000010,000010, 
1240 DATA 000000,000000,001100, 


000010 , 011010 , 111110 , 111100,011000 
000010 , 011010 , 111110 , 111100,011000 
000010 , 011010 , 100110 , 100100,011000 
010010,100001,100001,010010,001100 


, 000000,000000 
, 000000,000000 
, 00000O,000000 
, 000000,000000 
, 000000,000000 


1 250 DATA 00000 , 000000 , 0 1 00 1 1,001101,00001 0,000 1 00,00 1 000,0 1 0000,000000,000000 

1260 DATA 000000,111111,111111,111111,111111,111111,111111,111111,000000,000000 

1270 DATA DO#, F:E#, FA, FA#, SOL#, LA#, DO 

1230 DATA DO,RE,MI,FA,SOL,LA,SI,DO 

1290 DATA 415,369,332,311,276.5,249,221,207.5 

1300 DATA 393,351,311,293,262,234,207.5,196.5 

1310 DATA 4,0.25,2,0.5,1,1,0.5,2,0.25,4 

1320 DATA DOUBLE CROCHE,CROCHE,NOIRE,BLANCHE,RONDE 
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1 1330 LABEL BOUCLE 
1340 LET X=GETN 

1350 IF X>48 AND X<57 AND P<500 OR X>31 AND X<40 AND P<500 THEN GOSUB LABEL SA 
ISIE 

1360 IF X = 10 0F: X = 11 THEN GGSUB LABEL OCTAVE 

1370 IF X=22 0F: X = 12 THEN GOSUB LABEL LONGUEUR 

1380 IF X=44 OR X=46 THEN GOSUB LABEL DEFILEMENT 

1390 IF X=69 OR X=101 THEN GOSUB LABEL ERASE 

1400 IF X=74 OR X=106 THEN GOSUB LABEL REJOUER 

1410 IF X=8 THEN GOSUB LABEL DELETE 
1420 IF X=73 OR X=105 THEN GOSUB LABEL IMSERT 
1430 IF X=64 THEN GOSUB LABEL F'LAYF'AGE 
1440 IF X=80 OR X=112 THEN GOSUB LABEL F'RINTER 

1450 IF X=83 OR X = 115 THEN GOSUB LABEL SAVE 

1460 IF X=67 0F; X=99 THEN GOSUB LABEL LOAD 

1470 GOTO LABEL BOUCLE 
1480 LABEL OCTAVE 

1490 IF X=10 AND 0 1 THEN LET 0=0-1 

1500 IF X=11 AND G 5 THEN LET 0=0+1 

1510 LET M (F'*6+3) =0 

1520 PF:INT § h,o;OS 

1530 RETURN 

1540 LABEL LONGUEUR 

1550 IF X = 12 AND LO 132 THEN LET L=L+1 

1560 IF X=22 AND LO 128 THEN LET L=L-1 

1570 PR INT @ H,1 ;CHR*(L)S 

1580 RETURN 

1590 LABEL SAISIE 

1600 IF X=32 THEN GOTO 1650 

1610 IF X : 48 AND X<57 THEN LET v=100-(4*(X-49)),M(P*6+l)=N((X-48)*3+1),M(P*6+5) 
=X 

1620 ELSE LET v=100-(4*(X-33>),F=1,M<P*6+1)=N((X-32)*3+2),M<P*6+5)=X 
1630 IF F=1 THEN GOSUB LABEL DIESE 
1640 ELSE FRINT ë h,c?" 

1650 IF X=32 THEN LET X=X+101,v=81,M(P*6+l)=0,M<P*6+5)=X 

1660 ELSE LET X=L 

1670 FOR 1=70 TO 100 STEP 10 

1680 PF:INT ë h, i; " 

1690 NEXT I 

1700 PR INT @ h, v:CHF:$(X) ; 

1710 IF X=133 THEN PRINT ë h,c;" 

1720 LET h=h+6 

1730 LET M (P*6+2) =L, M (P*6+3)=0, M (F'*6+4) =F 

1740 GOSUB LABEL EMISSION 

1750 LET F=0,P=P+1 

1760 IF S=P-1 THEN LET S=S+1 

1770 IF h O'123 THEN GOTO 1800 

1780 GOSUB LABEL NEXTPAGE 

1790 RETURN 

1800 GOSUB LABEL CURSEUR DIESE 
1810 RETURN 
1820 LABEL DIESE 

1830 IF RIGHT$(Di(X-32),1)="#" THEN GOTO 1870 
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1840 PRIMT @ h,c; " 

1850 LET v=v-4 
1860 RETURN 
1870 PRINT @ h,c; 

1880 RETURN 

1890 LABEL EMISSION 

1900 IF M (P*6+l ) < >0 THEN BEER M<P*6+1 ) *0 (M <F'*6+3) ), T*L (M <P*6+2>-127) / (M (P*6+l ) * 
0 (M (F'*6+3) ) ) ,63 

1910 ELSE BEER 1000,T*L<MCP*6+2)-127)/1000, 0 

1920 RETURN 

193.0 LABEL PAGE 

1940 CLS 

1950 LET h=9 

I960 FOR I=F'-m TO P-n 

1970 F'RINT @ h,o!fl(I*6+3l ; 

1980 LET X=M(1*6+5) 

1990 IF X=133 THEN GOTO 2110 
2000 LET F=M(1*6+4) 

2010 IF F=0 THEN LET v=100-(4*(X-49)) 

2020 ELSE LET v=100-(4*(X-33)) 

203O IF F=1 THEN GOSUB LABEL DIESE 
2040 LET X=M(1*6+2) 

2050 F'RINT iü h,v;CHF.'$(X) ; 

2060 LET p=F',P=I 

2070 GOSUB LABEL EMISSION 

2080 LET h=h+6,P=p 

2O90 NEXT I 

2100 RETURN 

2110 LET v=81 

2120 GOTO 2050 

2130 LABEL DEFILEMENT 

2140 LET >: = X 

2150 IF POS THEN GOTO 2180 
2160 F'RINT @ h,c; " "i 
2170 GOTO 2210 

2180 LET F=M(F'*6+4) ,X=M(F'*6+5> 

2190 IF F=1 THEN GOSUB LABEL DIESE 
2200 ELSE F'RINT ë h,c;" 

2210 LET y=0,2=0 

2220 IF X=44 AND h=9 AND P<>1 THEN GOSUB LABEL F'RECEDPAGE 
2230 IF y=l THEN GOTO 2250 

2240 IF x=44 AND h< >9 AND F'Ol THEN LET h=h-6,P=P-l 

2250 IF >;=46 AND h=117 AND POS THEN GOSUB LABEL NEXTF'AGE 

2260 IF 2=1 THEN GOTO 2280 

2270 IF ::=46 AND h<>117 AND POS THEN LET h=h+6,F'=P+l 
2280 GOSUB LABEL CURSEUR DIESE 
2290 RETURN 

2300 LABEL CURSEUR DIESE 
2310 IF F-S THEN GOTO 2400 
2320 LET 0=M (F'*6+3) , F=M (P*6+4) 

2330 IF FOI THEN GOTO 2400 

2340 IF NOTRIGHTi (D$ (M(F'*6+5)-32), 1 ) ="#" THEN GOTO 2400 
2350 VDU 18 
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2360 F’RINT 0 h,c;"#"; 

2370 VDU 18 
2380 LET F=0 
2390 RETURN 
2400 LET F=0 

2410 GOBUB LABEL VARIABLES 2 

2420 RETURN 

2430 LABEL PRECEDPAGE 

2440 LET P=p+2,m=lB 

2450 GOSUB LABEL PAGE 

2460 LET h=99,y=l,p=P-3,u=u-l 

2470 LET F=M(F'*6+4), 0=M(F'*6+3) 

2480 GOSUB LABEL VARIABLES 2 

2490 RETURN 

2500 LABEL NEXTPAGE 

2510 IF S>P THEN GOTO 2530 

2520 LET F-p-1 

2530 IF P+16 S THEN LET n=0, F’=F'+16,m=18 

2540 ELSE LET m=S-P+2,P=S,n=l 

2550 GOSUB LABEL PAGE 

2560 IF P=S THEN F’RINT @ h,a;0; 

2570 LET h=27, z = l, P=F’-m+3, n=0, u=u+l 

25B0 IF POS THEN LET F=M !F’*6+4) , 0=M (F’*6+3) 

2590 GOSUB LABEL VARIABLES 2 
2600 RETURN 
2610 LABEL ERASE 

2620 IF SOI THEN GOTO LABEL ATTENTION 
2630 LET F'=1,S=1, u=l, h=9, 0=3, L=130 
2640 CLS 

2650 GOSUB LABEL VARIABLES 2 

2660 RETURN 

2670 LABEL REJOUER 

2680 IF S=1 THEN RETURN 

2690 F'RINT @ H, 1 ; " 

2700 PR I NT @ h,c;" "; 

2710 GOSUB LABEL EFFACER CADRE 
2720 INK D 
2730 VDU 23 

2740 F’RINT "ENTREZ LE TEMF'O DESIRE, PUIS <RETURN 
2750 F’RINT 

2760 F’RINT "( EN BATTEMENTS/MINUTE DE LA NOIRE ) 
2770 F’RINT 

2780 INF’UT "TEMPO (10-1000) ";t 

2790 IF t< 10 OR tT1000 THEN GOTO 2750 

2800 LET T=20000*318/t 

2810 PROTECT D 

2820 INK 7 

2830 LET p=F’ 

2840 FOR F’=l TO S-l 

2850 GOSUB LABEL EMISSION 

2860 NEXT P 

2870 PROTECT ô 

2880 PROTECT B 
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2890 GOSUB LABEL INSCRIPTIONS 

2900 LET F'=p,T= 13250 

2910 GOSUB LABEL VARIABLES 2 

2920 GOSUB LABEL CURSEUR DIESE 

2930 RETURN 

2940 LABEL DELETE 

2950 IF S=1 OR P=S THEN RETURN 

2960 IF S<>2 THEN GOTO 2990 

2970 GOSUB LABEL ERASE 

2980 RETURN 

2990 FOR I=P TO S-l 

3000 LET J=1 

3010 WH ILE I + IOS AND J 06 

3020 LET M <I*6+J)=M((I +1)*6+J) 

3030 LET J=J+1 
3040 WEND 
3050 NEXT I 
3060 LET S=S-1,F=0 

3070 IF (S—19) MOD 16=0 AND uOl THEN LET u=u-l,h=99+(!<P-16) MOD 16> *6) 

3080 GOSUB LABEL PLAYPAGE 

3090 RETURN 

3100 LABEL PLAYPAGE 

3110 IF S=1 THEN RETURN 

3120 LET f=h,g=P 

3130 LET P=(u#16)+3,m=18 

3140 IF P>=S THEN LET F-S-l,m=P-((u-1)*16+1) 

3150 GOSUB LABEL PAGE 

3160 IF P=S-1 AND h<>123 THEN PF:INT @ h,o;0; 

3170 LET h=f,P=g 

3180 GOSUB LABEL VARIABLES 2 

3190 GOSUB LABEL CURSEUR DIESE 

3200 RETURN 

3210 LABEL INSERT 

3220 IF S=P THEN RETURN 

3230 FOR I=S TO F'+l STEP -1 

3240 FOR J=1 TO 5 

3250 LET M(I*6+J) =M (<1-1)#6+J) 

3260 NEXT J 
3270 NEXT I 

3280 IF S<500 THEN LET S=S+1 

3290 LET M ( F'*6+1 ) =0 5 M (F'*6+4) =0, M (P*6+5) = 133 

3300 GOSUB LABEL PLAYPAGE 

3310 RETURN 

3320 LABEL PRINTER 

3330 EXT PF'RINT 

3340 LF'RINT 

3350 LF'RINT 

3360 LF'RINT "COPIE DE LA MELODIE 
3370 LF'RINT 

3330 IF S=1 THEN RETURN 
3390 FOR 1=1 TO S-l 

3400 IF M( 1*6+1)00 THEN GOTO 3430 
3410 LET A$="SILENCE" 
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342B GOTO 3470 

3430 IF M< 1*6+4)00 THEN GOTO 3460 

3440 LET A$=N$!M<1*6+5)-48) 

3450 GOTO 3470 

3460 LET A$=D*(M<1*6+5)-32) 

3470 LF'RINT 

3480 LF'RINT "NOM DE LA NOTE "jlî" : ";A$;" LONGUEUR : " ; L$ (M ( 1*6+2) -127) ; 
3490 IF NOTA$="SILENCE" THEN LF'RINT " OCTAVE : ";M(I*6+3) 

3500 ELSE LF'RINT 

3510 LET p=F',P=I 

3520 GOSUR LABEL EMISSION 

3530 LET F-p 

3540 NEXT I 

3550 LF'RINT 

3560 LF'RINT 

3570 RETURN 

3580 LABEL ATTENTION 

3590 FRINT @ 3,110;"VOUS CONFIRMEZ LA COMMANDE (0/N)?"; 

3600 LET k=GETN 

3610 IF k=7B OR k = 110 THEN GOTO 3640 
3620 IF k=79 OR k=lll THEN GOTO 3670 
3630 GOTO 3600 

3640 FRINT @ 3,110;CHR*<30>;CHR$<31); 

3650 LET n=0 
3660 RETURN 

3670 IF n=0 THEN GOTO 2630 

3660 ELSE GOTO 4010 

3690 LABEL SAVE 

3700 IF S=1 THEN RETURN 

3710 GOSUB LABEL EFFACER CADRE 

3720 LET Z=q 

3730 DFOKE Z,S 

3740 LET Z=Z+2 

3750 FOR 1=1 TO S-l 

3760 DFOKE Z, (M(I*6+1)* 10) 

3770 FOR J=2 TO 5 
3780 F'OKE Z+J,M( 1*6+J ) 

3790 NEXT J 
3800 LET Z=Z+6 
3810 NEXT I 
3620 VDU 23 

3830 PRINT "TAPEZ :D F3E8 FFF8 0 'MELODIE’" 

3840 PF:INT 

3850 PR INT "METTEZ L.E K7 EN RECORD" 

3860 PRINT "PUIS VALIDEZ PAR RETURN ' 

3870 PRINT 

3880 PRINT "POUR RETOURNER AU PROGRAMME, TAPEZ: " 

3890 F'R'INT "J PUIS <RETURN/ SUIVI DE GOTO 3940" 

5900 INK D 

3910 WINDOW 3,123,235,245 
3920 VDU 23 
3930 MON 

3940 WINDOW 3,123,125,245 
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3950 INK 7 

3960 GOSUB LABEL INSCRIPTIONS 
3970 RETURN 
3980 LABEL LOAD 
3990 LET n=l 

4000 GOTO LABEL ATTENTION 
4010 LET n=0 
4020 CLS 

4030 GOSUB LABEL EFFACER CADRE 
4040 VDU 23 

4050 PR INT "POSITIONNEZ LA K7" 

4060 F’RINT 

4070 PRINT "METTEZ SUR PLAY..." 

4080 PRINT 

4090 MLOAD "MELODIE" 

4100 LET Z=q 
4110 LET S=DPEEK(Z> 

4120 LET Z=Z+2 

4130 FOR 1=1 TO S-l 

4140 LET M ( I *6+1 ) =DF'EEK ( Z ) /10 

4150 FOR J=2 TO 5 

4160 LET M<1*6+J)=PEEK(Z+J) 

4170 NEXT J 

4180 LET Z=Z+fc 

4190 NEXT I 

420O GOSUB LABEL INSCRIPTIONS 
4210 CLS 

4220 LET P=l,u=l,h=9,O=3,L=130,F=0 
4230 GOSUB LABEL F'LAYFAGE 
4240 RETURN 


Structure et explications du programme : 

Comme GENECAR, CHOPIN est constitué d’une succession de routines 
appelées en série par le programme source (lignes 100-180): 

Nom du label Fonction 

INITIALISATION Réservation de la zone-mémoire nécessaire à la création des 
notes de musique et à la sauvegarde de la mélodie sur K7. 
Création des caractères spéciaux par lecture de lignes de 
DATA. 

VARIABLES Initialisations des diverses variables et tableaux du 
programme. 

ECRAN Présentation écran de base. 
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EFFACER CADRE Création et effacement d'une fenêtre-texte destinée à l'affi¬ 
chage des commandes disponibles. 

INSCRIPTIONS Affichage du titre et des commandes disponibles. 

VARIABLES 2 Sous-programme d'affichage de la longueur de note et de 
l'octave en cours, du curseur et du numéro de la page. 

LABEL BOUCLE Boucle de saisie des commandes. Celle-ci appelle elle-même 
un certain nombre de sous-routines, en fonctions des 
commandes entrées. 

Sous-routines : 

SAISIE Saisie, affichage et émission d'une nouvelle note de musique. 

OCTAVE Modification de l'octave en cours. 

LONGUEUR Modification de la durée de note en cours. 

DEFILEMENT Sous-routine autorisant le déplacement à l’intérieur de la 
partition. 

ERASE Efface la mélodie en mémoire, après confirmation. 

REJOUER Pour écouter toute la mélodie au tempo désiré. 

DELETE Efface la note sous le curseur. 

INSERT Insertion d'un silence dans la partition à la position du curseur. 

PLAYPAGE Joue la page affichée à l’écran, à un tempo fixe. 

PRINTER Copie sur l'imprimante la mélodie en mémoire. 

SAVE Sauvegarde sur K7 de la mélodie, en recopiant celle-ci dans la 

zone-mémoire réservée (INITIALISATION), puis en chargeant 
cette zone à l'aide de la commande DUMP du Moniteur. 

LOAD Recharge la mélodie en mémoire à partir du K7. 

Enfin, d’autres sous-programmes sont fréquemment appelés par toutes les 

routines du programme: 

DIESE Affiche un signe à la position du curseur, si la note sélec¬ 

tionnée correspond à un dièse. 

EMISSION Émet la note définie par P, sa position dans la mélodie. 

PAGE Affiche à l'écran la page sélectionnée. 
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CURSEUR DIESE 


Conserve l'affichage du signe 
ments du curseur. 


même lors des déplace- 


PRECEDPAGE 


Affiche la page précédente, quand le curseur dépasse la 
première note de la page en cours en mode défilement. 


NEXTPAGE 

ATTENTION 


Passe à la page suivante (automatique en mode saisie). 

Message réclamant une confirmation de type O/N, pour les 
commandes effaçant une mélodie en mémoire. 


REMARQUE: Toutes les routines de "CHOPIN" sont présentées ci-dessus, 
mais chacune d'elles en appelle d'autres en fonction des besoins du 
programme. 
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Appendice: 

Les messages d'erreur 


Code : 1 

Message : OUT OF MEMORY 

Signification : La totalité de la mémoire vive disponible a été occupée, ou 
vous avez tenté de charger un programme trop long à partir d'une cassette. 

Code : 2 

Message-. WRONG MODE 

Signification : Tentative d'utiliser en mode direct des commandes ne fonc¬ 
tionnant que dans un programme (INPUT, etc.). 

Code : 3 

Message-, STRING ERROR 

Signification : Indique une erreur concernant une chaîne, comme par 
exemple la tentative d'y attribuer plus de 127 caractères. 
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Code : 4 

Message : MISSING BRACKET 

Signification-. Un nombre impair de guillemets a été rencontré dans une 
ligne de programme. 

Code : 5 

Message-. DIVIDE BY ZERO ERROR 

Signification : Tentative de diviser un nombre par 0. 

Code : 6 

Message: OVERFLOW ERROR 

Signification : Un nombre supérieur à 9.9 1 0 63 a été rencontré (ou calculé) 
dans un programme. 

Code : 7 

Message: SYNTAX ERROR 

Signification : Une erreur de syntaxe a été rencontrée dans une commande 
directe ou une ligne de programme. 

Code : 8 

Message: SOMETHING MISSING 

Signification : Il manque un opérateur ou une opérande dans une ligne de 
programme ou une commande directe. 

Code : 9 

Message: FUNCTION ARGUMENT ERROR 

Signification : Un argument erroné ou hors limites a été fourni à une fonc¬ 
tion, par ex. SQR(—1). (Racine carrée de —1). 

Code : 1 1 

Message: REDIMENSIONED ARRAY 

Signification : Réponse à une tentative de redimensionner un tableau déjà 
déclaré par DIM. 
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Code-. 12 

Message-. LINE, LABEL OR PROC NOT FOUND 

Signification-. Un numéro de ligne ou LABEL inexistant a été fourni à 
GOTO, THEN ou GOSUB, ou alors un PROC se réfère à une procédure 
inexistante. 

Code : 13 

Message: NUMBER OUT OF RANGE 

Signification -. Un nombre hors limites a été fourni, ou rencontré lors d'un 
calcul. 

Code : 14 

Message-. SUBSCRIPT OUT OF RANGE 

Signification : Un élément de tableau est appelé en utilisant un indice hors 
des limites déclarées dans DIM, lorsque le tableau a été dimensionné. 

Code : 1 5 

Message-. TYPE MISMATCH 

Signification : Discordance entre un type de variable et les données que l'on 
essaie de lui attribuer (par ex: A="ABCD’'), ou entre une commande et 
l'argument qu'on lui donne (ex: SIN(A$)). 

Code : 1 6 

Message: LINE TOO LONG 

Signification : Apparaît en mode direct, si la ligne de programme en cours 
d'écriture dépasse 240 caractères. 

Code: 17 

Message: CANNOT CONTINUE 

Signification : Lorsqu'un programme a été arrêté par ESC, réponse à 
l’instruction CONT si une modification au programme est effectuée 
pendant l'interruption. 

Code : 1 8 

Message : OUT O F DATA 
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Signification -, Tentative d'utiliser READ, alors que les lignes de DATA ont 
déjà été lues en entier. 

Code-, 19 

Message : RETURN WITHOUT GOSUB 

Signification : Un RETURN est rencontré sans être préalablement passé par 
un GOSUB, ou un GOTO a provoqué la sortie d'une boucle FOR-NEXT 
avant la fin de celle-ci. 


Code : 20 

Message : N EXT WITHOUT FOR 

Signification : Une commande NEXT est rencontrée sans que la boucle ait 
débuté par un FOR. 

Code : 21 

Message : UNDEFINED VARIABLE 

Signification : Indique l'utilisation d'une variable, sans qu'une valeur lui ait 
été préalablement attribuée. 


Code-, 22 

Message: UNTIL WITHOUT WITHOUT REPEAT 

Signification : Un UNTIL est rencontré, sans que la boucle ait commencé 
par REPEAT. 

Code : 23 

Message-, WEND WITHOUT WHILE 

Signification \ Un WEND est rencontré, sans que la boucle ait débuté par 
WHILE. 


Code -, 24 

Message-, WHILE WITHOUT WEND 

Signification : Une boucle a été amorcée par WHILE, sans être terminée par 
un WEND. 
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Code : 25 

Message: RETU R N STAC K FU LL 

Signification : Trop de boucles du type FOR-NEXT, REPEAT-UNTIL etc. 
imbriquées. 

Code : 26 

Message : REPEAT WITHOUT UNTIL 

Signification : Une boucle débutant par REPEAT ne se termine pas par un 
UNTIL. 

Code : 27 

Message: GOSUB WITHOUT RETURN 

Signification : Un sous-programme appelé par un GOSUB ne se termine 
pas par RETURN. 

Code : 28 

Message: ENDPROC WITHOUT PROC 

Signification : Une commande ENDPROC est rencontrée, sans que le sous- 
programme ait été appelé par PROC. 

Code : 29 

Message-. BAD TAPE 

Signification : Une vérification du programme sauvegardé par VERIFY s'est 
avérée négative. 
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Présenté sous la forme d'un manuel de Basic approfondi, ce livre 
est destiné à ceux qui, déjà au fait des rudiments du Basic, désirent aller 
plus loin dans la connaissance de leur ordinateur. De nombreux pro¬ 
grammes, dont certains sont des logiciels complets et prêts à utiliser, 
permettent d'ouvrir la voie vers une programmation avancée. 

Citons un générateur de caractères et un programme musical prévu 
pour mémoriser une mélodie, en éditer la partition et copier celle-ci sur 
imprimante ou cassette. 

L'initiation au langage-machine tient une place importante, avec là 
encore des programmes pour permettre au lecteur, même novice, l'em¬ 
ploi de quelques «astuces» utiles sans connaissances de base. On trouve¬ 
ra, parmi les programmes proposés, une méthode de reconfiguration du 
clavier, ainsi que la routine à utiliser pour créer et exploiter deux pages- 
écran. 
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